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Avant-propos 


Ce livre vous propose des jeux de très bonne qualité exploitant pleinement 
les capacités graphiques et sonores de l'ORIC. 


Son rôle ne se limite toutefois pas à celui d'un simple recueil de 
programmes. [1 vous offre en outre la possibilité d'adapter chacun d'entre 
eux suivant vos goûts et vos désirs, et cela sans même que vous n'ayez 
besoin de connaître le Basic. En effet, chaque jeu est accompagné de 
nombreuses suggestions de ‘personnalisation ” qui vous sont expliquées 
dans le moindre détail. 


Si vous avez quelques rudiments de Basic, ce livre peut constituer une 
bonne occasion de vous perfectionner en vous amusant. C'est en pensant à 
vous que nous avons préféré présenter les programmes par ordre de diffi- 
culté croissante, renonçant ainsi à l'habituel classement par “genre” 
Chacun d'entre eux est analysé, instruction par instruction et les 
“techniques” employées sont clairement expliquées. Vous serez ainsi 
parfaitement armés pour acquérir progressivement les connaissances et les 
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méthodes qui vous seront indispensables si vous souhaitez développer 
vous-mêmes vos propres jeux ou modifier profondément ceux qui vous 
sont proposés. 


Les programmes ont été soigneusement vérifiés et leurs listes réalisées 
directement à partir de l'ORIC sur du matériel fiable. Vous pouvez donc les 
recopier en toute confiance. 
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Introduction 


Afin que vous puissiez tirer le meilleur parti de ce livre, en fonction de vos 
désirs, nous croyons bon de vous préciser comment il est constitué. 


Un premier chapitre vous donne des conseils pour la frappe des 
programmes proposés. Si vous ne connaissez pas le Basic, sa lecture vous 
sera très profitable. Elle vous aidera à détecter les erreurs de frappe que 
vous aurez pu commettre lors de la recopie d'un des jeux. 


Les chapitres 2 à 21 correspondent chacun à un jeu. |ls sont tous structu- 
rés de la même manière en cinq paragraphes: 


e paragraphe 1 : le jeu. Vous y trouverez le scénario du jeu, ses règles et 
tout ce qu'il faut savoir pour y jouer avec votre ORIC. 


© paragraphe 2: le programme. (|| s'agit de sa liste). 


© paragraphe 3: si vous souhaïtez personnaliser ce programme. De 
nombreuses possibilités d'adaptation vous sont proposées. Elles ne 
requièrent absolument aucune connaissance du Basic. Dans le cas où 
cela présente de l'intérêt, nous vous expliquons comment utiliser une 
poignée de jeu. 
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© paragraphe 4: description du programme. Vous y verrez tout d'abord la 
liste des ‘’techniques” utilisées dans le programme. Chacune d'entre 
elles fait l'objet d’une description détaillée en annexe. (Cette façon de 
procéder nous a évité de répéter des explications analogues d'un 
programme à un autre). Vient ensuite une analyse très complète du 
programme et des différents sous-programmes (dont nous avons fait un 
très large usage afin de mieux mettre en évidence le fonctionnement du 
jeu). Ces derniers sont décrits dans l'ordre où ils sont appelés dans le 
programme principal (et non pas nécessairement dans l'ordre des numé- 
ros de ligne). Notez que les structures de boucle sont mises en évidence 
par une typographie appropriée. 


© paragraphe 5: liste des variables. On y précise le rôle de chaque variable, 
à l'exception de quelques unes, rangées dans la rubrique variables auxi- 
liaires'’; ce sont là des variables n'ayant qu'un rôle secondaire et qui 
n'apparaissent que très localement : compteur de boucle FOR ayant peu 
d'instructions, variable chaîne destinée à lire une réponse O/N, etc... 


Viennent enfin les différentes annexes dont nous avons parlé plus haut. 
Elles fournissent des indications sur les techniques spécifiques de program- 
mation qui sont employées dans la réalisation des jeux et notamment sur la 
manière de les mettre en œuvre sur ORIC. Notez que vous ÿ trouverez 
certaines informations très précieuses, qui ne figurent pas dans le manuel 
d'accompagnement de votre micro-ordinateur. 


Bien entendu les paragraphes 4 et 5 ainsi que les annexes sont plus parti- 
culièrement destinés à ceux d’entre vous qui, ayant déjà des rudiments de 
Basic, souhaitent aller plus loin. Ce livre devrait vous permettre d'y parvenir 
en vous amusant. 
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Conseils pour la frappe 
des programmes 


Ce petit chapitre vous donne quelques conseils qui devraient grandement 
faciliter cette opération souvent laborieuse qu'est la frappe des 
programmes. 


1. Ne jamais exécuter immédiatement un programme que 
vous venez de taper 


Bien entendu, il est nécessaire de le vérifier à l'écran (ou mieux sur impri- 
mante si vous avez la chance d'en avoir une). Mais surtout, il est indispen- 
sable que vous en fassiez une sauvegarde sur cassette (par CSAVE) 
AVANT de tenter de l'exécuter. 


En effet, il arrive (parfois) que l'exécution d'un programme erroné conduise 
à un plantage” de l'ORIC tel que même le bouton RESET ne permette pas 
de se sortir de la situation. Dans ce cas, vous ne pouvez que débrancher 
puis rebrancher votre ORIC, ce qui a pour conséquence immédiate de vous 
faire perdre le programme que vous aviez patiemment introduit en mémoire. 


Si, par contre, vous avez préalablement copié ce programme sur cassette, il 
vous suffit alors de le recharger par CLOAD puis d'en rechercher les 
anomalies. 


Remarquez que cette technique peut également s'utiliser pour effectuer 
des sauvegardes partielles de programme. Cela peut se révéler utile 
lorsque : 


— vous n'avez pas le temps de taper tout votre programme en une fois, 


— vous craignez d'être interrompu par une ‘fausse manip” ou une 
coupure du secteur... 


2. Recherche des anomalies 


Il est probable que votre programme ne fonctionnera pas convenablement 
au premier coup. Trois types d'incidents peuvent apparaître. Nous allons 
voir comment remédier à chacun d'entre eux. 


a) L'ORIC se plante 


C'est la situation si désagréable dont nous avons parlé. Essayez d'appuyer 
sur le bouton RESET. Si cela ne fonctionne toujours pas, rechargez votre 
programme. 


Il vous faut maintenant rechercher l'anomalie. Cela est, somme toutes, 
assez facile car, vu l'importance des dégâts, et compte-tenu de ce qu'il 
s'agit d'un programme BASIC, la cause ne peut être qu'une mauvaise utili- 
sation de l'instruction POKE. 


Comme celle-ci est peu utilisée dans nos programmes, vous n'aurez qu'un 
nombre limité de vérifications à faire. Examinez donc chacune de ces 
instructions en comparant avec la liste d'origine et en effectuant les correc- 
tions nécessaires. 


Si vous ne trouvez aucune erreur dans les instructions POKE, il faut alors 
examiner les variables qui peuvent y intervenir. Par exemple dans: 


POKE AM,XX 


interviennent AM et XX. Vous allez alors examiner les instructions où ces 
variables (AM et XX) se voient attribuer une valeur, c'est-à-dire les instruc- 
tions de la forme: 


AM = … 
XX = … 


Ou : 


Il est probable que l'une d'entre elles soit erronée. Sa correction devrait 
résoudre le problème. 


b) L'exécution commence puis vous obtenez un message du type: 
SYNTAX ERROR IN xxxx 


où xxxx désigne un numéro de ligne. 


C'est là l'erreur que vous rencontrerez fréquemment. Elle ne pose pas de 
problème particulier puisqu'il vous suffit de vérifier et de corriger la ligne 
mentionnée. 


c) L’exécution commence puis vous obtenez un message du type : 
ILLEGAL QUANTITY ERROR IN xxxx 

Cela signifie que, dans la ligne spécifiée, vous utilisez une fonction (PLOT, 

DRAW, …) avec de mauvaises valeurs pour les arguments. 


Commencez par vérifier la ligne concernée. Si cela ne donne rien, c'est ce 
que ce sont des variables apparaissant dans l'instruction qui ont pris de 
mauvaises valeurs. 


Si vous connaissez un peu Basic et la fonction concernée, vous pouvez 
faire écrire, en mode direct, le contenu des variables. Par exemple, si 
l'instruction est: 


PLOT X,Y,C 


vous pouvez, après le message d'erreur, taper simplement (sans numéro de 
ligne) : 


PRINT X,Y,C 


Vous devriez ainsi découvrir la variable coupable. 


Il vous faut ensuite vérifier toutes les instructions dans lesquelles la 
variable (ou les variables si vous ne savez pas laquelle est en cause) reçoit 
une valeur. Ici, par exemple vous vérifierez toutes les instructions où appa- 
raît quelque chose de la forme: 


X = … 
OU Y-= 4 
OÙUC = 


D'autres erreurs sont malheureusement possibles. Celles que nous avons 
évoquées sont les plus courantes. Si vous prenez bien soin de relire ce que 
vous avez tapé et de le comparer avec la liste d'origine, il est probable que 
vous ne rencontrerez guère d'autres erreurs. 
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Force de frappe 


1. Le jeu 


Il s'agit d'un jeu d'habileté et de rapidité. Son but consiste à taper le plus 
vite possible sur la touche correspondant à une lettre qui apparaît dans un 
endroit quelconque de l'écran. La pratique de ce jeu peut vous aider à 
mieux connaître le clavier de votre ORIC et donc à augmenter votre vitesse 
de frappe. 


A chaque partie, trente lettres vous sont ainsi proposées. Chacune d'entre 
elles est tirée au hasard parmi les vingt-six lettres de l'alphabet. Si vous 
tapez sur une mauvaise touche, un bruit de sonnette retentit. Par contre, si 
vous tapez sur la bonne touche, vous entendrez un “coup de fusil”: le 
programme vous proposera alors une nouvelle lettre, après un petit temps 
d'attente qui sera variable d'une fois à l’autre. Ce détail accroît quelque peu 
la difficulté du jeu car il vous empêche d'acquérir un rythme régulier, et il 
vous demande d'être sans cesse “à l'affût” d'une nouvelle lettre. 


Le programme affiche en permanence le temps écoulé. Notez bien que seul 
n'est pris en compte que votre temps de réaction. Le temps d'attente 
(variable) avant affichage d'une lettre n'est pas considéré. Vous voyez 
également apparaître le nombre d'erreurs que vous avez commises. 


A la fin d'une partie, le programme vous indique quel a été votre temps 
moyen de réaction. || vous fournit un score qui est fonction de ce temps 
moyen et du nombre d'erreurs. En même temps, il vous présente le meil- 
leur score réalisé depuis le début du jeu. 


Enfin, le programme vous demande si vous désirez rejouer. Si vous répon- 
dez O (pour oui), une nouvelle partie vous est alors proposée. 


2. Le programme 


Quelques conseils pour la frappe 


Dans un premier temps, vous pouvez alléger la frappe en simplifiant les 
instructions REM, par exemple en vous limitant au mot REM. Cela 
concerne les lignes 100, 4000, 5000, 6000, 8000 et 9000. Ne supprimez 
pas complètement ces lignes car le programme ne fonctionnerait plus. 


Attention à la ligne 8040. Le nombre d'espaces situés entre les guillemets 
(”}) doit être exact. Pour éviter de vous tromper, repérez-vous sur la ligne 
8020. 


Attention, en ligne 160, ne pas laisser d'espace entre les deux guillemets: 


100 REM *x##x#####% FORCE DE FRAPPE #44 
110 GOSUB 9000 

120 REPEAT 

130 : GOSUB 8000 

140 : FOR I=1 TO NL 

150 : GOSUB 5000 

160 : R$=KEY$: IF R$="" THEN GOSUB 6000: GOTO 160 

170 ; R=ASC(R$): IF R<>C THEN PING: E=E+1: GOTO 160 

180 : GOSUB 4000 

190 : NEXT I 


M=T/NL 
PRINT:PRINT:PRINT "TEMPS MOYEN DE FRAPPE :": 
PRINT "AVEC "};E;" ERREURS" 
SC=INT(20000/M-50%E) 
PRINT: PRINT "VOTRE SCORE :":S6C 
PRINT: PRINT "MEILLEUR SCORE :"3,MS 
IF SC>MS THEN MS=5SC 
PRINT: PRINT: PRINT "voulez vous rejouer (Q/N)7?" 
GET R$ 


UNTIL R$<>"0" 
END 


REM ------ SP LETTRE CORRECTE --------------------- 
SHOOT 

PLOT X,Y,32 

RETURN 

REM ------ SP AFFICHAGE D'UNE LETTRE -------------- 
X=X1+INT(RND(1)#(X2-X1+1)) 
VaVI+INT(RND(1)#(Y2-Y1+1)) 

C=65+INT(RND(1)#26) 

WAIT RND(I)#TM 

PLOT X,Y,C 

RETURN 

REM ------ SP MISE A JOUR, AFFICHAGE TEMPS ET ERREURS ---- 
TeT+i 

PLOT 1,0,1: PLOT 2,0,"TEMPS" 

PLOT 8,0,STR$#(T): PLOT 8,0," " 

PLOT 20,0,5: PLOT 21,0," ERREURS" 


PLOT 29,0,STR$#(E): PLOT 29,0," " 
RETURN 
REM ------ SP INITIALISATION D'UNE PARTIE --------- 


T=0: E=0: CLS 

PLOT 3,0,"tapez sur une touche pour commencer" 
GET R$ 

PLOT 3,0," 1 
RETURN 

REM ------ SP INITIALISATIONS DU JEU -----------"- 
POKE #26A,10 

PA=b: IN=4: PAPER PA: INK IN 

X1=21 X2=38: Yi=2: Y2=26 

NL=30: TM=75: M6=0 

RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier le nombre de lettres proposées au cours d'une 
partie 


Remplacez en 9040, le nombre 30 par une valeur de votre choix. 


2. Pour modifier le temps s’écoulant avant l'apparition d'une 
nouvelle lettre 


Remplacez, en 9040, le nombre 75 par une valeur de votre choix. Si vous 
souhaitez qu'il n'y ait aucun temps d'attente, vous pouvez: 


— soit donner la valeur O à TM (en 9040), 
— soit supprimer l'instruction 5050. 


3. Pour que la lettre s'affiche toujours au même endroit de l'écran 


Remplacez les instructions 5010 et 5020 par des instructions attribuant 
une valeur déterminée à X et Y. Par exemple: 


5010 X = 20 
5020 Y = 13 


vous fourniront une lettre située au centre de l'écran. 


4. Pour modifier la couleur de l'écran 


Remplacez la valeur 6 de l'instruction 9020 par un nombre de votre choix 
(entre O et 7). 


5. Pour modifier la couleur des lettres 


Remplacez la valeur 4 (en 9020) par un nombre de votre choix (entre O et 
7). 


REMARQUE: Évitez de choisir la même valeur pour l'écran et pour les lettres 
car alors ces dernières seraient “invisibles”. 


4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— HASARD 
— Configuration clavier/écran 


b) Le programme principal 


110 appelle le sous-programme d'initialisation du jeu (en 9000). 


120 et 290 permettent de répéter les instructions 130 à 280 correspon- 
dant au déroulement d'une partie, et ceci jusqu'à ce que l'utilisateur 
précise qu'il ne désire plus continuer à jouer: 


140 à 190 proposent les trente lettres. Pour chaque lettre: 


150 appelle le sous-programme 5000 qui affiche une lettre sur 
l'écran. 

160 boucle sur elle-même jusqu'à ce qu'une touche soit pressée. 
Tant que cela n'a pas lieu, le sous-programme 6000 est appelé 
pour ‘’incrémenter”’ le compteur de temps et pour en afficher sa 
valeur. 

170-180 analysent la réponse. Si celle-ci est incorrecte, un bruit de 
sonnette retentit; le compteur d'erreurs est incrémenté de un et 
l'on revient en 160 pour attendre une autre proposition. Si la 
réponse est correcte, le sous-programme 4000 fait retentir un coup 
de fusil et efface la lettre de l'écran. 


200-230 calculent le temps moyèn et l'impriment en même temps 
que le nombre d'erreurs. 


240-265 calculent le score obtenu et l'impriment en même temps 
que le meilleur score réalisé jusqu'ici. Le cas échéant, le meilleur 
score est actualisé. 


270-280 demandent à l'utilisateur s'il désire rejouer et lisent sa 
réponse. 


c) Le sous-programme d'initialisation du jeu (9000-9050) 


9010 supprime le bip du clavier et le curseur de l'écran. 


9020 fixe les couleurs de fond et d'encre. 


9030 fixe les limites du domaine où peuvent apparaître les lettres 
proposées. 


9040 fixe le nombre total de lettres proposées, le temps d'attente maxi- 
mum et initialise le meilleur score. 


d) Le sous-programme d'initialisation d’une partie (8000-8050) 


8010 initialise les différents compteurs (temps, erreurs) et efface l'écran. 


8020-8040 attendent que vous frappiez une touche pour préciser que vous 
êtes prêt à commencer la partie. 


e) Le sous-programme d'affichage d'une lettre (5000-5070) 
5010-5020 déterminent au hasard les coordonnées d'affichage d'une 
lettre. 


5040 choisit au hasard le code ASCII de l'une des vingt-six lettres de 
l'alphabet. 


5050-5060 affichent la lettre choisie à l'emplacement déterminé, après un 
temps tiré lui aussi au hasard. 


f) Le sous-programme lettre correcte (4000-4030) 


4010 émet un bruit de ‘coup de fusil”. 


4020 efface la lettre proposée. 


g) Le sous-programme d'affichage du temps et des erreurs 
(6000-6060) 

6010 incrémente le compteur de temps. 

6020-6030 affichent le temps. 

6040-6050 affichent le nombre d'erreurs. 


5. Liste des variables 


PA 
IN 


X1,X2,Y1,Y2 


NL 
TM 


MS 


m — 


&— 
< 


Zz 70 


couleur de fond 


couleur d'encre (dans laquelle apparaissent les différentes 
lettres 


coordonnées du domaine dans lequel les lettres pourront 
apparaître 


nombre total de lettres proposées au cours d'une partie 


temps maximum (exprimé en dizaines de ms) s'écoulant 
avant l'apparition d'une nouvelle lettre 


meilleur score 

temps (cumulé) de réaction du joueur 

compteur d'erreurs 

numéro de la lettre courante 

coordonnées de la lettre courante 

code ASCII de la lettre courante 

code ASCII de la touche frappée par l'utilisateur 
temps moyen de réaction 

score 


Variables accessoires 


R$ 


3 


Raïd de nuit 


1. Le jeu 


En pleine nuit, vous êtes aux commandes d'un bombardier avec pour 
mission d'anéantir une ville. Le temps vous est compté car l'un de vos 
moteurs est défaillant et vous perdez sans cesse de l'altitude. || vous faut 
donc rapidement démolir les immeubles les plus élevés pour éviter de les 
percuter lors d'un prochain passage. D'autre part, vous ne pouvez larguer 
une nouvelle bombe que lorsque la précédente a atteint son but (ou le sol). 


Vous voyez donc votre avion traverser l'écran de gauche à droite à diverses 
reprises. À chaque passage, il peut perdre ou non (suivant le hasard) un peu 
d'altitude. Le ‘suspens’ en sera d'autant plus grand quand vous serez 
passé à ras d'un immeuble que vous aurez raté | 


Vous larguez une bombe en appuyant sur la barre d'espace. Chaque fois 
qu'un immeuble est atteint, il est démoli sur une hauteur plus ou moins 
importante. Des sons d'explosion appropriés vous renseignent sur l'impor- 
tance des dégâts. 
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Le jeu s'achève lorsque votre avion percute un immeuble ou lorsque la ville 
a été entièrement détruite. Dans le premier cas, votre score est fonction de 
l'importance des destructions opérées. Dans le second cas, il dépend de la 
vitesse avec laquelle vous avez atteint votre objectif (il sera toujours plus 
élevé dans le second cas). 


Neuf niveaux différents vous sont proposés. Au niveau 1, les immeubles 
sont de petite taille tandis qu'au niveau 9, ils occupent une bonne partie de 
l'écran. 


Le programme affiche en permanence le niveau auquel vous jouez et le 
meilleur score déjà réalisé à ce niveau: (voir photo 1 hors texte : Vue de 
l'écran pendant le déroulement du jeu). 


2. Le programme 


100 REM **k##kkxx#Xx RAID DE NUIT #X########E#NMUEUNUE UNE 
105 GOSUB 9000 

110 REPEAT 

120 : GOSUB 8000 

130 : REPEAT 


200 : WAIT 200 

210 PLOT 24,24,'"voulez vous" 
220 PLOT 24,25,"rejouer (O/N)" 
230 GET R$: GET R$ 

240 UNTIL R$<>"0" 


260 END 


140 4 IF TR=i THEN GOGSUB 2000 ELSE WAIT 5 
150 : IF PEEK(#208)=#84 AND TR=0 THEN XB=XA: YB=VAr TR=i 
160 : GOSUB 30001 Ta=T+1 
165 : IF TR=1 AND EX=0 THEN GOSUB 2000 
170 3 UNTIL FIl=1 OR ID=IM 
180 1 IF ID2IM THEN GOSUB 5000 
190 & PLOT 8,26,STR$(SC): PLOT 8,26," " 
195 à IF SC>MS(NV) THEN MS(NV)=6C 

ï 

: 

: 
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REM ---- DEPLACEMENT BOMBE ------------------- 
IF EX=i THEN 2050 

PLOT XB,YB,32: YB=YB+i 

IF YB>Y2 THEN SHOOT: TR=0: RETURN 

IF SCRNIXB,YB)=32 THEN PLOT XB,VB,CB: RETURN 
EXs=1 

EXPLODE: PLOT KB,YB,32: ID=ID+i: YB=YB+1 


IF RND(1)CPR OR YB)Y2 THEN EX=0: TR=0: RETURN 
RETURN 
REM ---- DEPLACEMENT AVION ------"--"""--"""-- 


IF XA>=X2 THEN 3050 

IF SCRN(XA+2,VA)=CI THEN GOSUB 4000: RETURN 
PLOT XA,YA," "4 XA=XA+ir PLOT XA,YA,CAS$ 
RETURN 

PLOT XA,YA," "4 IF RND(1)20.33 THEN YA=VA+I 


IF YA)Y2 THEN GOSUB 4000 
KA=X1 

IF SCRN(XA,YA)=CI OR SCRN(XA+1,YA)=CI THEN GOSUB 40002 RETURN 
PLOT XA,YA,CA$ 

RETURN 

REM ---- GP FIN PARTIE PAR DESTRUCTION AVION ----- 

SHOOT: WAIT 104 

PLOT XA+2,VA,IN 

FOR K=1 TO 7 

à PLOT KA-1,YA,K1 WAIT 8: EXPLODE 

NEXT K 

MAIT 50: EXPLODE: WAITIOr PLOT KA,YA,": " 

SC=INT(1000*ID/IM): Fi=i: RETURN 

REM ---- GP FIN PARTIE PAR DESTRUCTION IMMEUBLES ---- 

MAIT 1001 SC=1000+(24-YA)#100 

RETURN 

REM ---- INITIALISATION D'UNE PARTIE --------- 

CLS1 PLOT 1,25,"Niveau choisi (1 à 9)?" 


GET R$: NV=VAL(R#): IF NV=0 THEN 8020 
PLOT 26,25,R# 

FOR Y=24 TO 26 

: PLOT 0,Y,12 

NEXT Y 

YB=23-NV: HM=0,S5#NV+5: IM=0 

FOR X=X1+2 TO X2-1 
 YM=YB-INT (RND (1) #HM) 

1 IM=IM+Y2-VM+1 

à FOR V=V2 TO VM STEP -1 
5 PLOT X,Y,CI 
à NEXT Y 
NEXT X 


8120 ID=0: TR=0: FI=0 

8130 KA=X11 YA=Yi1 XB=XA1 YBz=YA 

8140 PLOT XA,YA,CA$ 

8160 PLOT 1,25,BL$ 

8170 PLOT 1,25,"NIVEAU SCORE M-SCORE" 
8180 PLOT 3,26,STR$# (NV): PLOT 3,26," " 
8185 PLOT 15,26,STR$(MS(NV)): PLOT 15,26," " 
8190 RETURN 

9000 REM ----- INITIALISATIONS DU JEU -------------- 
9010 PA=Q: IN=2: 12=6 

9020 PAPER PA: INK IN 

9030 DIM MS(9) 

9060 Xi=i: X2=37: Vi=0: Y2=23 

9070 CI=64+128: CB=92: Ci=94: C2=95 
9080 DATA 63,45,45,63,63,45,45,63 

9090 C=CI-128: GOSUB 9500 

9100 DATA 0,0,0,0,8,7,8,0 

9110 C=CB: GOSUB 9500 

9120 DATA 56,36,55,32,39,63,7,15 

9130 C=Ci: GOSUB 9500 

9140 DATA 0,0,60,2,57,63,32,0 

9150 C=C2: GOSUB 9500 

9160 CA$=CHR$ (C1) +CHR$ (C2) 

9170 POKE #26A,10 

9180 PR=0,6 

9190 BL$="" 

9200 FOR I=i TO 361 BL$=BL$+" "3 NEXT I 
9210 RETURN 

9500 REM ---- INIT CARAC GRAPHIQUES --------------- 
9510 AM=46080+8%#C 

9920 FOR I=0 TO 7 

9530 : READ XX: POKE AM+I,XX 

9540 NEXT I 

9550 RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier la couleur du fond (ici noir) 
Remplacez, en 9010, la valeur O (dans PA = O) par un nombre de votre 


choix (0 à 7). Notez que cette modification agit sur la couleur des 
immeubles. 


15 


2. Pour modifier la couleur de l'avion et de la bombe 


Remplacez, en 9010, la valeur 2 (dans IN — 2) par un nombre de votre 
choix (0 à 7). Notez que cette modification agit sur la couleur des 
immeubles. 


3. Pour que l'avion perde de l'altitude plus ou moins rapidement 


Il vous faut savoir que la perte d'altitude est régie par l'instruction 3050. 
Actuellement l'avion a, à chaque passage, une chance sur trois (0.33) de ne 
pas descendre. 


Si vous souhaitez que l'avion descende plus vite, remplacez la valeur 0.33 
par un nombre plus petit, par exemple: 


3050 PLOT XA, YA,”  ’’:IF RND(1)>0.15 THEN YA = YA + 1 
Si vous voulez que l'avion descende à chaque passage, il vous suffit 
d'écrire : 

3050 PLOT XA, YA,” ”’:YA=YA +1 


Si vous souhaitez que l'avion descende plus lentement, remplacez 0.33 par 
un nombre plus grand, tout en étant inférieur à 1. Par exemple, avec: 


9050 PLOT XA,YA,” ‘’’:IF RND(1)>0.5 THEN YA = YA +1 


l'avion descendra, en moyenne, une fois sur deux. 


Évitez de choisir des valeurs trop proches de 1 car l'avion descendrait alors 
trop lentement et le jeu risquerait de perdre de l'intérêt. 


4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard 
— Création de caractères graphiques 
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— Lecture rapide du clavier 
— Configuration clavier/écran 


b) Le programme principal (100-260) 


105 appelle le sous-programme d'initialisation du jeu. 

110 et 240 répètent les instructions 120 à 230 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer. 
120 appelle le sous-programme d'initialisation d'une partie. 


130 et 170 répètent les instructions 140 à 165 jusqu'à la fin de la 
partie (écrasement de l'avion ou destruction de toute la ville). 


140 assure le déplacement de la bombe si un larguage est en cours 
TR = 1} 


150 prend en compte une demande de larguage (barre d'espace) si 
aucun autre larguage n'est en cours. 

160 déplace l'avion et actualise le temps. 

165 déplace la bombe, s'il y a lieu. 


180 appelle le sous-programme de fin de partie par destruction de la 
ville s'il y a lieu. 


190-195 affichent votre score et actualisent le meilleur score. 
200-230 vous demandent si vous désirez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9210) 


9010-9020 fixent les différentes couleurs (fond, encre, lignes inférieures). 
9030 réserve le tableau des meilleurs scores. 
9060 fixe les limites du domaine de jeu. 


9070-9160 fabriquent les caractères graphiques utilisés pour représenter 
l'avion, la bombe et les immeubles. 


9170 supprime le bip du clavier et le curseur. 
d) Le sous-programme d'initialisation de partie (8000-8190) 


8010-8030 vous font choisir le niveau de jeu. 


8033-8037 modifient la couleur d'encre des trois lignes inférieures. 
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8040-8110 dessinent les immeubles. 


8120initialise le nombre d'immeubles détruits, les indicateurs de larguage 
et de fin de partie. 


8130-8140 dessinent l'avion dans sa position initiale. 


8160-8185 affichent le niveau de jeu et le meilleur score. 


e) Le sous-programme de déplacement de la bombe (2000-2080) 


(Ce sous-programme gère également l'explosion d'immeuble). 


2005-2040 avancent la bombe lorsqu'aucune explosion n'est en cours; 
examinent si elle atteint le sol ou un immeuble. Dans ce dernier cas, 
2040 met en place l'indicateur ‘explosion en cours”. 


2050-2070 exécutées lorsqu'une explosion est en cours, ces instructions 
incrémentent le compteur d'immeubles détruits, effacent un 
“morceau” d'immeuble et déterminent si l'explosion doit ou non se 
poursuivre sur la partie inférieure de l'immeuble. 


f) Le sous-programme de déplacement d'avion (3000-3100) 


3010-3040 déplacent l'avion s'il n'a pas atteint le bord droit de l'écran, en 
regardant s'il percute un immeuble. Dans ce dernier cas le sous- 
programme 4000 est appelé. 


3050-3100 réaffichent l'avion à gauche de l'écran, après avoir éventuelle- 
ment modifié son altitude. 


g) Les sous-programmes de fin de partie (4000-4070 et 5000- 
5020) 


4010-4060 explosion (couleurs et sons) de l'avion. 
4070 calcul du score (en cas de fin par percution d'immeuble). 


5010 calcul du score (en cas de fin par ville détruite). 


5. Liste des variables 


PA couleur du fond 
IN couleur de l'encre pour le domaine de jeu 
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12 
MS(9) 


X1,X2,Y1,Y2 
CI 

CB 

C1 


C2 


CA$ 
PR 


BL$ 


NV 
IM 


ID 
TR 


FI 


XA,YA 
XB,YB 
EX 


SC 


couleur de l'encre pour les trois lignes inférieures 


tableau contenant le meilleur score relatif à chacun des neuf 
niveaux 


coordonnées du domaine de jeu 

code du caractère utilisé pour dessiner les immeubles 
code du caractère utilisé pour dessiner la bombe 

code du caractère utilisé pour dessiner la partie gauche de 
l'avion 

code du caractère utilisé pour dessiner la partie droite de 
l'avion 

chaîne de deux caractères représentant l'avion 


probabilité pour que l'explosion d'une partie d’un immeuble 
entraîne l'explosion de la partie inférieure 


chaîne de 36 caractères ‘’blanc” utilisée pour l'effacement 
d'une ligne d'écran 


niveau de jeu 


nombre d'immeubles (plus précisément de ‘’ cases” repré- 
sentant les immeubles) 


nombre de ‘’cases immeubles” détruites 


si 1 : larguage en cours (une bombe est en train de tomber) 
si 0: aucun larguage en cours 


indicateur de fin de partie: 
O0: cas normal 

1: fin de partie 
coordonnées de l'avion 
coordonnées de la bombe 


indicateur explosion en cours: 
0: pas d'explosion 
1: explosion en cours 


score 


Variables auxiliaires 


R$ X Y C 


HM,YB (dans le sous-programme 8000) 


4 
FLIP FLOP 


1. Le jeu 


Vous disposez de neuf pions réversibles disposés suivant une grille 3 x 3. 
L'une de leur face est bleu clair tandis que l'autre est recouverte d'un 
quadrillage rouge et jaune. 


Au départ, le programme dispose les pions dans la grille, la face visible 
étant tirée au hasard. Le but du jeu consiste à aboutir, en un minimum de 
coups à la situation suivante: 

— le pion central est bleu 

— les autres pions sont rouges/jaunes 

A chaque coup, vous choisissez le pion sur lequel vous voulez agir. Le 


programme vous retourne alors, non seulement ce pion, mais également 
un certain nombre d'autres, suivant les règles suivantes: 
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Pions retournés en plus 
du pion choisi 








Pion choisi 





Le pion central. Les quatre pions des coins. 


Un pion situé en milieu d'une rangée 
horizontale ou verticale. 


Les deux pions voisins situés sur 
la même rangée. 


Un pion situé dans un coin. Les trois voisins immédiats. 


Malgré une lointaine ressemblance avec le ‘rubik's cube”, vous verrez que 
ce jeu est beaucoup plus facile à pratiquer. 


Vous choisissez un pion en y amenant le curseur représenté par un petit 
carré bleu foncé situé à l'intérieur d'un pion. Ce “curseur” se déplace à 
l'aide des quatre touches fléchées. 


Le programme vous donne en permanence le numéro du coup que vous 
jouez et le meilleur score déjà obtenu. 


MES 
= 





Vue de l'écran pendant le déroulement du jeu 
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2. Le programme 
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100 
110 
120 
130 
140 


160 

170 

175 

180 

190 

200 

210 

220 

35000 
5010 
5020 
5030 
3040 
5050 
6000 
6008 
6020 
6030 
6040 
6050 
6060 
6070 
8100 
6110 
6120 
6200 
6210 
6230 
6400 
6410 
8420 
6430 
b440 
6450 


REM #h#u#na#na# FLIP FLOP He dede de EEUEOEHEGEMEE EDEN EE UN 
GOSUB 9000 
REPEAT 

: GOSUB 8000 

s REPEAT 
5  NO=NC+1: PLOT 3,25,58TR$ (NC): RLOT 3,25," " 
:  GOSUB 7000: GOSUB 46000: GOSUB 5000 
4 UNTIL NN=B AND T(3,3)z=1 
5 IF NCCMS OR MS=0 THEN MS=NC 
# SHOOT: PLOT 24,24,"GAGNE": WAIT 100 
t PLOT 20,25,12: PLOT 21,25,"rejouez vous?" 

4 GET R$: GET R$ 
UNTIL R$<>'"0" 
END 

REM ----- SP ANALYSE D'UN COUP ----------- 
NN=0 

FOR 122 TO 4: FOR J=2 TO 4 

1 IF T(I,J)=-1 THEN NN=NN+i 

NEXT J: NEXT I 

RETURN 

REM = SP JEU DU COUP PROPOSE -------. 
IP=l1 JP=J] 

IF IP<)3 OR JP<>3 THEN 6100 

1 GOSUB 6500 

4 FOR 1=2 T04 STEP 21 FOR J=2 TO 4 STEP 2 

# GOSUB 6500 

4 NEXT Js NEXT I 

t RETURN 

IF IP<)3 THEN 6200 

5 FOR I=2 TO 4: GOSUB 6500: NEXT I! 

4 RETURN 

IF JP<)>3 THEN 6400 

#5 FOR J=2 TO 4: GOSUB 6500: NEXT J 

4 RETURN 

REM 

5 FOR IsIP-1 TO IP+i 

15 FOR J=JP-1 TO JP+i 

! GOSUB 6500 

3 NEXT Ji: NEXT I 

RETURN 


REM ----- 6P INVERSION D'UN PION ----------- 
T(I,d)=-T(I,1J) 

GOSUB 8500 

RETURN 

REM ----- GP LECTURE COUP PROPOSE ------------ 
PLOT 17,24,121 PLOT 18,24,"choisissez votre pion" 
I=21 J=2 

X=8#(1-2)+111 Y=6#+(J-2)+6 

BC=SCRN(X,Y) 

PLOT X,Y,CC 

CLaPEEK(#208)1 IF CLle#38 THEN 7060 

IF Cle#84 THEN 7200 
Izl-(CLlehAC)#(132)+(CLe#BC)#(1<4) 
J=J-(CLla#9C)#(J>2)+(CLle#B4)#(J<4) 

PLOT X,Y,8C: WAIT 20: GOTO 7030 

PINGs WAIT 100: PLOT X,Y,SC 

PLOT 17,24," ! 


RETURN 

REM ----- SP INITIALISATION D'UNE PARTIE ---------- 
CLS: PLOT 10,1," FLIP - FLOP" 

NCa0 

NN=0 

FOR 122 TO 41 FOR J=2 TO 4 


à T(I,d)=is IF RND(1)>0,5 THEN T(I,J)=-1: NN=NN+i 
NEXT Js NEXT I 

IF T(3,3)=1 AND NN=B THEN 8020 

PLOT 3,24,"COUP M-GCORE" 

PLOT 12,25,S8TR$(MS): PLOT 12,25," " 

FOR I=2 TO 41 FOR J=2 TO 4 


: GOSUB 8500 

NEXT Je NEXT I 

RETURN 

REM ----- SP DESSIN PION 1,J SI VALIDE ----------- 
IF 12 OR 1>4 OR J<2 OR J>4 THEN RETURN 


XD=B#(1-2)+91 YD=b#(J-2) +4 
CH$=CP$1 IF T(l,J)=-1 THEN CH$=CN$ 
FOR Y=YD TO YD+3 

: PLOT XD,Y,CH$ 


NEXT Y 

RETURN 

REM ----- SP INITIALISATION DU JEU --------------- 
INséb1 PA=41 CLS: PAPER PAs INK IN 


DIM T(5,5)1 MG=0 
CN=95+128: CP=96: CC=32 
DATA 51,51,12,12,51,51,12,12 


23 


9050 C=CN-128: GOSUB 9500 

9060 DATA 63,63,63,63,63,63,63,63 

9070 C=CP: GOSUB 9500 

9080 CN$=""s FOR Ii TO Se CN#=CN#+CHR# (CN) NEXT I 
9090 CP$=""1 FOR Ii TO Si CP#=CP#+CHR# (CP) NEXT I 
9100 POKE 264,10 

9110 RETURN 

9500 REM ----- SP INIT CARAC GRAPHIQUES ---------"-""" 
9510 AM=46080+8#C 

9520 FOR I=0 TO 7 

9530 1 READ XX1 POKE AM+I,XX 

9540 NEXT I 

9550 RETURN 


3. Si vous souhaitez personnaliser ce programme 


Pour modifier la couleur des pions 


Il vous faut savoir que: 
e le côté pile est représenté par la couleur d'encre placée en 9010, ici 6, 
c'est-à-dire cyan (bleu ciel) 


e le côté face est représenté par un quadrillage en “vidéo inverse”. Autre- 
ment dit, les deux couleurs qui le constituent sont: 


— le complémentaire de la couleur de fond (4), c'est-à-dire 7 — 4 = 3 
(jaune) 

— le complémentaire de la couleur de papier (6), c'est-à-dire 
7 — 6 = 1 (rouge) 


Par exemple, si vous remplacez 9010 par: 


IN=3: PA=0: CLS: PAPER PA: INK IN 


vous obtiendrez: 


— un fond noir (0) 
— du jaune (3) pour le côté pile 
— un quadrillage bleu (7 — 3 = 4) et blanc (7 — 7 = O) pour le côté face. 
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4, Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard 

— Création de caractères graphiques 
— Lecture rapide du clavier 

— Configuration clavier/écran 


b) Le programme principal (100-220) 


110 appelle le sous-programme d'initialisation du jeu. 

120 et 210 répètent les instructions 130 à 200 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer: 
130 appelle le sous-programme d'initialisation d'une partie. 


140 et 170 répètent les instructions 150 et 160 (jeu d'un coup) 
jusqu'à ce que vous ayez gagné: 
150 incrémente le compteur de coups et affiche sa valeur, 


160 appelle les sous-programmes: lecture du coup, jeu du coup 
(inversion des pions correspondants), analyse du coup. 


180-200 vous disent que vous avez gagné, actualisent le meilleur 
score et vous demandent si vous souhaitez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9110) 


9010 fixe les couleurs de fond et de papier. 


9030-9090 fabriquent les caractères graphiques représentant les deux 
faces d'un pion. 


9100 supprime le bip du clavier et le curseur d'écran. 


d) Le sous-programme d'initialisation d'une partie (8010-8120) 


8010-8015 effacent l'écran, affichent le nom du jeu etinitialisent le comp- 
teur de coups. 


25 


8020-8060 choisissent au hasard la position (pile ou face) de chaque pion 
et comptent le nombre de côtés “face”. On évite la situation 
gagnante. 


8070-8080 affichent le meilleur score. 


8090-8110 dessinent les pions en utilisant le sous-programme 8500. 


e) Le sous-programme de dessin d'un pion (8500-8570) 


Il détermine la position sur l'écran d'un pion de coordonnées | et J et le 
dessine. Notez que, pour des raisons de simplification du programme, on 
utilise une grille de 5 x 5. Seules les cases correspondant à | — 2,3,4 et J — 
2,3,4 représentent effectivement des pions. 


f) Le sous-programme de lecture du coup proposé (7000-7220) 


7010 affiche en clignotant “choisissez votre pion”. 


7020-7100 vous permettent de déplacer le curseur grâce aux touches 
fléchées. Ces instructions sont répétées jusqu'à ce que vous frappiez 
la barre d'espace. 


7200-7210 émettent un son de clochette pour montrer que votre coup a 
été pris en compte et effacent le curseur. 


g) Le sous-programme de jeu du coup proposé (6000-6450) 


6030-6070 cas du pion central. 

6100-6120 cas d'un pion situé au centre d'une colonne. 
6200-6230 cas d'un pion situé au centre d'une ligne. 
6400-6450 cas d'un pion situé dans un coin. 


h) Le sous-programme d'analyse d'un coup (5000-5050) 


Il compte le nombre de pions en position ‘’face”’ (rouge et jaune). 
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5. Liste des variables 


IN 
PA 
T(5,5) 


MS 
CN 
CP 
CC 
CN$ 


CPS 
NC 
NN 
XD,YD 
1,J 
IP,JP 
X,Y 
SC 


couleur d'encre 
couleur de fond 


tableau représentant la situation de chaque pion: 

1: côté pile (bleu) 
— 1: côté face (rouge et jaune) 
Notez que pour des raisons de simplification, nous employons un 
tableau 5 x 5 et non 3 x 3. Seuls les éléments Ti,j) (2<i<4; 
2<j<4) correspondent aux pions effectivement dessinés sur 
l'écran. 


meilleur score 

code ASCII du caractère servant à dessiner les pions, côté face 
code ASCII du caractère servant à dessiner les pions, côté pile 
code ASCII du caractère servant à dessiner le curseur 


chaîne de cinq caractères représentant une partie d'un pion, côté 
face 


chaîne de caractères représentant une partie d'un pion, côté pile 
numéro du coup 

nombre de pions côté face 

coordonnées écran du coin haut gauche d'un pion 
coordonnées d'un pion (varient entre 2 et 4) 

coordonnées du pion choisi (varient entre 2 et 4) 

coordonnées d'i curseur 

score 


Variables auxiliaires 


C CH$ CL 
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Drôles de mines 


1. Le jeu 


Ce sont effectivement de drôles de mines qu'il va vous falloir déjouer. En 
effet, contrairement aux mines habituelles, elles sont capables de “sauter” 
une multitude de fois. 


Votre mission: faire parvenir un maximum d'espions en territoire ennemi. 
Pour cela, ils doivent obligatoirement traverser un domaine infesté de 
mines. Vous disposez de douze hommes, prêts à risquer leur vie et qui 
suivent à la lettre l'itinéraire que vous leur indiquez par radio. 


Vos douze espions sont alignés sur la gauche de l'écran. Le premier attend 
que vous le dirigiez à l’aide des quatre touches fléchées (ou, le cas échéant, 
de la poignée de jeu). Vous devez tenter de le faire parvenir à droite de 
l'écran (à n'importe quelle hauteur). S'il saute sur une mine (avec sons et 
décors appropriés), vous verrez aussitôt l'espion suivant se présenter au 
départ. 
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Les mines sont, bien entendu, invisibles. Par contre, de nombreux 
obstacles, infranchissables, vous serviront de repère. 


Bonne chance et n'oubliez pas que ces mines sont “drôles”. 





Vue de l'écran pendant le déroulement du jeu 


2. Le programme 


100 REM #**s#kexxxx DROLE DE MINE ####44# Rue 
110 GOSUB 9000 

120 REPEAT 

130 : GOSUB 8000 


140 : FOR I=i TO NV 

150 : X=XI: Y=YI: PLOT X,Y,CB: PLOT 1,1,32 
160 :  CLePEEK(#208) 

170 : IF CL=#38 THEN 160 


180  XN=X-(CL=#AC) #(X>2X 1) +(CLa=#BC) #(X<38) 
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30 


1  YN=Y-(CL=#9C)#(V>Y1)+(CLe#B4)#(Y<Y2) 
1  SX=SCRN(XN,YN) 

t IF SX=CM THEN GOSUB 3000: GOTO 260 

#5  PLOT X,Y,32 

5 IF SX<>CQO THEN X=XN: Y=YN 

#5  PLOT X,Y,CB 

1 IF X=38 THEN GOSUB 2000: GOTO 260 

#5 MWAIT 20: GOTO 160 

t NEXT I 

1 IF SC>MS THEN MS=6C 

t PLOT 10,25,"voulez vous rejouer (0/N)" 
: GET R$: GET R$ 

UNTIL R$<>"0" 


END 
REM ---- GP TRAVERSEE REUSSIE ---------"-"-"- 
AP: SC=SC+1 
PLOT 3,26,8TR$(8C)2 PLOT 3,26," " 

WAIT 50: PLOT X,Y,32 

RETURN 

REM ---- GP EXPLOSION MINE -------"--" 
PLOT X,Y," "3 PLOT XN,YN,CB: WAIT 20: EXPLODE 
PLOT XN,YN,C2: WAIT 404 PLOT XN,YN,C3: WAIT 60 
PLOT XN,YN,CM 

RETURN 

REM ---- GP INIT D'UNE PARTIE -----------"-"-"" 
CLS: SC=0 

PLOT 1,25,"SCORE M-SCORE" 

PLOT 9,26,S8TR$ (MS): PLOT 9,26," " 

FOR I=1 TO NO 

à X=X14INT(RND(1)#(X2-X1+#1)) 

à Y=Y1+INT(RND(1)#(Y2-V1+1)) 

: IF SCRN(X,Y)<>32 THEN 8050 

: PLOT X,Y,C0 

NEXT I! 

FOR I=1 TO NM 

à X=X14INT(RND(1)#(X2-X 141) ) 

à V=Y1+INT(RND(1)#(Y2-Y1+1)) 

1 IF SCRN(X,Y)<>32 THEN 8110 

: PLOT K,Y,CM 

NEXT I! 

FOR I=1 TO NV 

: PLOT 1,1,CB 

NEXT 1 

RETURN 


9000 REM ---- GP INITIALISATIONS ---------"-"-""""" 
9010 IN=11 PA=3s INK IN: PAPER PA 

9020 Ki=3: K2=361 Vi=0: V2=23: XI=2: VI=15 
9030 NV=12: NO=150: NM=40 

9040 CBmb4s CO=94+128s CM=IN: C2=95: C3=96 
9050 DATA 8,0,15,28,44,10,18,27 

9060 C=CB: GOSUB 9500 

9070 DATA 51,51,12,12,51,51,12,12 

9080 C=CO-128: GOSUB 9500 

9090 DATA 20,23,0,12,8,2,34,59 

9100 C=C21 GOSUB 9500 

9110 DATA 2,16,1,4,32,1,20,1 

9120 C=C3: GOSUB 9500 

9130 POKE #26A,10 

9140 RETURN 

9500 REM ---- GP INIT CARAC GRAPHIQUES ----------"-""" 
9510 AM=46080+B4C 

9520 FOR I=0 TO 7 

9530 : READ XX: POKE AM+#I,XX 

9540 NEXT I 

9550 RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier le nombre d'espions 


Remplacez le nombre 12 de l'instruction 9030 par une valeur de votre 
choix ne dépassant pas 24. 


2. Pour modifier le nombre d'obstacles 


Remplacez le nombre 150 de l'instruction 9030 par la valeur de votre 
choix. 


3. Pour modifier le nombre de mines 


Remplacez le nombre 40 de l'instruction 9030 par la valeur de votre choix. 
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Notez bien qu'un trop grand nombre de mines risque de rendre le jeu diffi- 
cile, voir impossible. Un trop petit nombre risque, par contre, de le rendre 


trop facile. 
4. Pour que les mines n'explosent qu'une seule fois 


Remplacez 3030 par: 


3030 PLOT XN,YN,” ” 


5. Pour utiliser une poignée de jeu 


Chargez le programme ” MANETTE 1" comme expliqué en annexe. Bran- 


chez la poignée du côté droit et remplacez les instructions 160 à 190 par 
les suivantes: 


160 : C=PEEK(#400) 

170 : IF C=191 THEN 160 

180  KXNeX-((C AND 1)=0)#(KX>KI1)+((C AND 2)=0)#(X<38) 
190 3 YN=Y-((C AND 16)=0)#(Y>V1)+((C AND 8)=0)#(Y<Y2) 


4. Description du programme 


a) Techniques utilisées décrites en annexe 


— Hasard 

— Création de caractères graphiques 
— Lecture rapide du clavier 

— Configuration clavier/écran 

— Poignées de jeu 


b) Le programme principal 


110 appelle le sous-programme d'initialisation du jeu. 


120 et 290 répètent les instructions 130 à 280 (déroulement d'une partie) 
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jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer: 
130 appelle le sous-programme d'initialisation d'une partie. 
140-260 répètent douze fois la tentative de traversée d'un espion. 
Pour chaque tentative: 
150 dessine l'espion au départ, et efface un espion de la file 
d'attente. 
160-250 sont répétées jusqu'à ce que l'espion ait sauté sur une 
mine ou qu'il ait réussi sa traversée: 


160-190 attendent qu'une touche soit enfoncée et déterminent 
la position correspondante. 


200-230 si une mine se trouve à cette nouvelle position, le sous- 
programme 3000 simule l'explosion de la mine. Dans le cas 
contraire et s'il ne s’agit pas d'un obstacle, l'espion est dessiné 
dans sa nouvelle position après avoir été effacé de l'ancienne. 


240 appelle le sous-programme traversée ” réussie” si l'espion 
atteint le bord droit. 
270-280 vous demandent si vous désirez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9140) 


+ 
9010 fixe les couleurs d'encre et de fond. 


9020 fixe les limites du domaine qui contiendra les obstacles et les 
mines. 


9030 fixe le nombre d'espions, le nombre d'obstacles et le nombre de 
mines. 


9040-9120 fabriquent les caractères graphiques utilisés pour représenter 
les espions et les obstacles. 


9130 supprime le “bip” et le curseur. 


d) Le sous-programme d'initialisation d'une partie (8000-8190) 


8010-8030 initialisent le score, effacent l'écran et affichent le meilleur 
score. 


8040-8090 dessinent au hasard les différents obstacles. 
8100-8150 placent les bombes au hasard. 
8160-8180 dessinent la file d'attente d'espions. 
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e) Le sous-programme d’explosion d'une mine (3000-3030) 
3010 dessine d'abord l'espion à l'emplacement voulu et, après une brève 
attente, fait retentir une explosion. 


3020 simule la “destruction” de l’espion en faisant se succéder trois 


caractères différents : morceaux”, poussières”, ‘’espace”. 
f) Le sous-programme ‘’ traversée réussie”’ (2000-2040) 


2010 émet un son ‘’zap”’ et incrémente le score. 
2020 affiche le score. 


2030 efface l'espion qui vient de traverser. 


5. Liste des variables 


IN couleur d'encre 
PA couleur de fond 


X1,X2,Y1,Y2 coordonnées du domaine dans lequel se trouvent les 
obstacles et les mines 


XI,Y1 coordonnées de la position de départ d'un espion 

NV nombre d'espions 

NO nombre d'obstacles 

NM nombre de mines 

CB code du caractère représentant un espion 

CO code du caractère représentant un obstacle 

CM code du caractère représentant une mine (il doit être 
invisible”) (Nous avons choisi le code de la couleur de 
l'encre) 

C2,C3 codes des caractères représentant l'espion (ou plutôt ses 


restes”) au cours d'une explosion 
SC score (nombre d'espions traversés) 
| numéro de l'espion en cours de traversée 
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X,Y coordonnées de l'espion en cours de traversée 


CL code du caractère frappé au clavier 
XN,YN coordonnées du prochain emplacement de l'espion 
MS meilleur score 


Variables auxiliaires 


X,Y (de 8040 à 8150) coordonnées d'un obstacle ou d'une mine 
C SX R$ 
| (dans le sous-programme 8000) 
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GOAL 


1. Le jeu 


Vous venez d'être sélectionné comme goal dans une grande équipe de 
football. Saurez-vous être à la hauteur de la situation en interceptant tous 
les tirs de vos adversaires qui se montrent particulièrement adroits. 


Les buts sont matérialisés par deux poteaux sur la droite de l'écran. Vous 
déplacez le goal, entre les deux poteaux à l'aide des deux touches ” ? ‘et 

. Douze tirs au but vont avoir lieu. Pour chaque tir, vous voyez appa- 
raître en un endroit quelconque de l'écran, un joueur accompagné d'un 
ballon. Au bout d’un court instant (variable d’une fois à l’autre), le’ joueur 
"’shoote”’ dans le ballon et il vous faut l’intercepter. Vous ne pouvez dépla- 
cer le goal que pendant le déplacement du ballon. Comme vous le consta- 
terez, vos adversaires sont très habiles puisqu'ils tirent toujours dans les 
buts. 
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Le programme affiche le nombre de coups tirés et le nombre de ballons 


interceptés. 


BALLOH = € Lu | 54 = 





Vue de l'écran pendant le déroulement du jeu 


2. Le programme 


190 
200 


REM HUMEUR GOAL HAHUHUEUEEUUUEUEUEUEUEUUUUUEUEUEUENE 
SC=0: GOSUB 9000 
FOR IC=1 TO NC 


GOSUB 5000 

IF PEEK(768)=176 THEN WAIT 6:G0OT0 190 
DL=PEEK(735)-135 

PLOT KG,YG," ": PLOT XG,YG+1," " 
YG=YG+(DL=4)#(YG>P1+1)#(YG<2Y OR XG-1<>X) 
YG=YG-(DL=3)#+(YG<P2-2)#(YG<2Y OR KG-1<)X) 


PLOT XG,YG,G1$1 PLOT XG,YG+1,62$ 


PLOT X,Y,32 
X=X+21 Y=Y+DY 
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1 IF XD=XG6 THEN GOSUB 4000: GOTO 240 
1 IF SCRN(X,Y)<>32 THEN GOSUB 4000: GOTO 240 
: PLOT X,Y,CB 

: GOTO 140 
NEXT IC 
PRINT CHR#(6);CHR# (17) 
END 

REN: xs 298 FIN D'UN COUP uen sinon 
IF SCRN(X,Y)=32 THEN ZAP: GOTO 4050 

SC=6C+1 

SOUND 4,25,0: PLAY 0,1,1,500 

PLOT 14,25,8TR#(S8C): PLOT 14,25," " 

MAIT 100 

PLOT XJ,YJ,328 PLOT XJ,YJ+1,32 

MAIT 100 

RETURN 

REM ... SP INITIALISATION D'UN COUP ssssuususuuss 
PLOT 7,25,S8TR#(IC): PLOT 7,25," " 
X=X1+2#INT(RND(1)#(X2-X1+1)/2) 
YaYL+INT(RND(1)#(Y2-V1)+1) 
DY=INT(RND(1)#6)-2 

YI=Y+(38-X) DY/2 

IF YIé=P1 OR YI)=P2 THEN 5020 

XJmX-11 YJ=Yy-1 

PLOT X,Y,CB 

PLOT X-1,Y-1,01 

PLOT X-1,Y,J3 

PLOT X,Y,CB 

PLOT 25,25,12: PLOT 26,25,"ATTENTION" 

WAIT RND(1)#TM+100 

PLOT 25,25," " 

PLOT X-1,Y,J2 

SOUND 4,25,08 PLAY 0,1,1,600 

RETURN 

REM «... SP INITIALISATIONS ss ssessesseneusoss 
PA=3: IN=4 

PAPER PA: INK IN 

PP=53 IG=i 

XG=36: YG=11: TM=100 

NC=12 

Ki=31 K2=15 

Yisir Y2=23 

Pi=2: P2=21 

CB=361 Glmbdr G2=94 

Ji=95: J2=96: J3=123 

DATA 0,7,7,3,63,7,11,19 

C=61: GOSUB 9500 


9130 DATA 35,9,9,17,17,17,91,0 
9140 C=62: GOSUB 9500 

9150 DATA 0,56,56,48,63,56,52,50 
9160 C=J1: GOSUB 9500 

9170 DATA 49,40,36,38,38,38,51,0 
9180 C=J2: GOSUB 9500 

9183 DATA 12,30,63,63,63,63,30,12 
9185 C=CB: GOSUB 9500 

9186 DATA 49,40,40,40,40,40,60,0 
9188 C=J3: GOSUB 9500 

9190 GI$=CHR$(IG)+CHR$(G1) 

9200 G2$=CHR$ (IG) +CHR$(G2) 

9210 PRINT CHR$#(6)ÿ;CHR$#(17)3 
9230 CLS 

9240 PLOT XG6,YG,G1$ 

9250 PLOT XG,YG+1,G2$ 

9260 PLOT 4,24,"BALLON SCORE" 
9270 FOR J=0 TO i 

9280 x FOR I=0 TO i 

9290 4 PLOT XG+I,Pi-J,PP+16 
9300 & PLOT XG+I,P2+J,PP+16 
9310 : NEXT I 

9313 « PLOT XG+2,P1-J,PA+16 

9317 1 PLOT XG+2,P2+J,PA+I6 

9320 NEXT J 

9330 RETURN 

9500 AM=46080+8%C 

9510 FOR I=0 TO 7 

9520 s READ XX: POKE AM+I,XK 
9530 NEXT I 

9540 RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour changer la couleur du fond (du terrain) 


Remplacez en 9010, le chiffre 3 (dans PA = 3), par une valeur de votre 
choix (0 à 7). Par exemple: 


9010 PA=2: IN=4 


vous donnera un fond vert. 
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2. Pour changer la couleur du joueur et du ballon 


Remplacez en 9010, le chiffre 4 (dans IN — 4), par une valeur de votre 
choix. Par exemple: 


9010 PA=3: IN=1 
donnera la couleur rouge au joueur et au ballon. 
REMARQUE: Évitez de donner la même valeur pour PA et pour IN car, dans 


ce cas, le joueur et le ballon deviendraient de la même couleur que le fond. 
Ils seraient alors “invisibles”. 


3. Pour modifier le nombre de coups tirés lors d'une partie 


Remplacez, en 9050, la valeur 12 par un nombre de votre choix. 


4. Pour modifier la taille des buts 


Modifiez, en 9080, les valeurs de P1 (ici 2) et de P2 (ici 21) qui fixent la 
position des poteaux. 


Ainsi : 

9080 P1-8: P2-18 
vous fourniront de petits buts, 
tandis qu'avec: 

9080 P1-1: P2-25 


ils occuperont toute la hauteur de l'écran. 


5. Pour utiliser une poignée de jeu 


Chargez le programme  MANETTE 1” comme expliqué en annexe. Bran- 
chez la poignée du côté droit et remplacez les lignes 140,150,170,175 
par: 


144 : DL=FEEK(#466%) 

156 : IF DL=191 THEN WAIT 6: GOTO 194 

174 : YG=YG+((DL AND 16)=64) #(YG:F1+1)#(CYG£5:Y OK XG-125%X) 
175 : YG=YG-{(DL AND 8)=6)#(VGEF2-2)#(YGESY OR XG-143X) 


Notez que l'instruction 160 n'est pas modifiée. 
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4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Configuration clavier/écran. 

— Poignées de jeu. 


b) Le programme principal (100-260) 


110 initialise le score et appelle le sous-programme d'initialisation du jeu. 
120-240 répètent douze fois le tir d'un ballon. Pour chaque coup, les 
instructions 130 à 220 sont répétées jusqu'à ce que le ballon atteigne 
la ligne des buts: 
130 appelle le sous-programme d'initialisation d'un coup (en 5000). 


140-180 déplacent le goal si l'utilisateur l'a demandé en appuyant sur 
l'une des touches ” ? ‘ou ” |” 


190-220 déplacent le ballon. Si celui-ci atteint le niveau des buts, il y 
a appel du sous-programme de fin d'un coup (en 4000). 


c) Le sous-programme d'initialisation du jeu (9000 à 9330) 


9010-9080 fixent les couleurs du fond, du goal, du joueur, des buts et du 
ballon ainsi que les limites du terrain et de la zone à l'intérieur de 
laquelle le joueur peut apparaître. 


9090-9200 fabriquent les caractères graphiques utilisés pour représenter 
le joueur, le goal, le ballon et les buts. Ces instructions emploient le 
sous-programme placé en 9500. 


9210 supprime le ‘bip’ du clavier et le curseur de l'écran. 
9240-9250 dessinent le goal au milieu des buts. 
9270-9320 dessinent les deux poteaux des buts. 
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d) Le sous-programme d'initialisation d’un coup (5000 à 5140) 


5010 affiche le numéro du coup qui va être joué. 
5020-5030 choisissent au hasard un emplacement pour le joueur. 


5040-5060 choisissent au hasard une direction de tir telle que la trajec- 
toire du ballon passe entre les deux poteaux. 


5065-5100 dessinent le ballon et le joueur ‘prêt à shooter" et font cligno- 
ter le mot ATTENTION”. 


5110-5130 dessinent le joueur ‘”’shootant”’ dans le ballon et émettent un 
son approprié. 


e) Le sous-programme de fin d’un coup (4000-4080) 


4008 fait entendre un ‘’zap” si le goal a raté le ballon. 


4020-4040 augmentent de un le score et l'affichent dans le cas où le goal 
a intercepté le ballon. 


4050-4070 effacent le joueur. 


5. Liste des variables 


PA couleur de fond (papier) 

IN couleur d'encre employée pour le joueur et le ballon 

PP couleur des poteaux des buts 

IG couleur d'encre employée pour le goal 

XG,YG coordonnées du goal 

NC nombre de coups prévus 

X1,X2,Y1,Y2 coordonnées du domaine dans lequel peut se trouver le 
joueur 

pP1 ordonnée du premier poteau 

P2 ordonnée du second poteau 

CB code ASCII du caractère représentant le ballon 

G1,G2 codes ASCII des deux caractères représentant le goal 
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J1 


J2 


J3 


G1$,G2$ 


X,Y 


DY 


YI 


XJ,YJ 
SC 
IC 


code ASCII du caractère représentant la moitié supérieure 
du joueur 


code ASCII du caractère représentant la moitié inférieure du 
joueur en position de repos 


code ASCII du caractère représentant la moitié inférieure du 
joueur lorsqu'il shoote dans le ballon 


chaînes de caractères représentant le goal (compte-tenu de 
sa couleur différente de la couleur d'encre du reste de 
l'écran) 


coordonnées du ballon 


indique la direction de déplacement du ballon. Sa valeur 
représente le déplacement vertical correspondant à un 
déplacement horizontal de deux unités 


ordonnée de l'intersection de la trajectoire du ballon avec la 
ligne des buts 


coordonnées du joueur 
score (nombre de ballons interceptés) 
numéro du coup courant 


Variables auxiliaires 


| J AM XX DL 
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Reconstitution 


1. Le jeu 


Un crime vient d'être commis. La victime a été coupée en morceaux |! Et le 
pire, c'est que vous êtes chargé de la reconstitution. De la reconstitution 
des circonstances du crime, pensez-vous ! Vous n'y êtes pas. il s'agit de la 
reconstitution de la victime... 


Dure affaire, pensez-vous. En fait nous jouons sur les mots puisque la 
victime n'est autre qu'un mot qui va se présenter à vous avant qu'une 
explosion n'en disperse les lettres sur l'écran. Votre mission consiste à les 
ramasser le plus vite possible et dans le bon ordre. 


Vous ramassez les lettres grâce à une ‘’boule”’ que vous promenez sur 
l'écran à l'aide des quatre touches fléchées. Au début de la partie, le 
programme vous laisse examiner à loisir l'état de la situation: position des 
lettres, de la boule, meilleur chemin à suivre... Quand vous pensez être prêt, 
vous appuyez sur une touche du clavier. A partir de là, dès que vous aurez 


&z 


mis votre boule en mouvement à l'aide de l’une des quatre flèches, plus 
rien ne pourra l'arrêter. 


Notez bien que pour votre boule, l'écran est ‘’ sphérique”. Autrement dit, 
si la boule disparaît à gauche, elle réapparaît aussitôt à droite au même 
niveau. De même, si elle disparaît en haut, elle réapparaît en bas de l'écran, 
au-dessus des trois lignes servant à l'affichage d'informations. 


Au fur et à mesure que vous ramassez les lettres, vous voyez s'inscrire, en 
bas de l'écran, en rouge, le mot partiellement reconstitué. Le programme 
affiche en permanence le temps écoulé. 


Si vous gagnez, vous voyez apparaître, en clignotant, le mot  GAGNE”" et 
votre temps moyen (par lettre) ainsi que le meilleur score. Si vous perdez, 
vous ne verrez que le mot “PERDU”. 


Li 
pris 





Vue de l'écran pendant le déroulement du jeu 
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2. Le programme 


100 REM ######x4## RECONSTITUTION ##4#4#4 HUE 
110 GOSUB 9000 

120 REPEAT 

130 1 GOSUB 8000 

135 4 FOR NLs=i TO L 

140 REM 

190 « IF PEEK(768)<>176 THEN DN=PEEK(735)-135 


160 : IF DN>0 AND DN<S THEN DL=DN 

170 3 XN=X+(DLæ1)-(DLe2)1 YN=Y+(DLæ4)-(DLe3) 

180 4 IF XN>X2 THEN XNeX1 

190 4 IF XN<X1 THEN XN=X2 

200 x IF YN>Y2 THEN YN=Yi 

210 3 IF YNSYI THEN YN=Y2 

220 : T=T+is PLOT 2,26,STR#(T): PLOT 2,26," " 

225 « IF DL=0 THEN 140 

230 : SX=SCRN(XN,YN) 

240 s PLOT X,Y,321 KX=XNs Y=YNs PLOT X,Y,CB 

242 : IF SX=32 THEN 140 

250 «4 IF CHR$(SX)C>MID$(MO$,NL,1) THEN 360 

270 : PLOT 10,25,CHR$(12)+LEFT$(MO$, NL) 

280 : NEXT NL 

300 : PING: PLOT 2,24,12: PLOT 5,24,"GAGNE" 

310 : TM=INT(T/L): PLOT 11,24,"TEMPS MOYEN" 

320 : PLOT 27,24,STR$(TM): PLOT 27,24," " 

330 : PLOT 11,25,"MEILLEUR TEMPS : 

340 : PLOT 27,25,STR$#(MT): PLOT 27,25," " 

350 + IF TMCMT OR MT=0 THEN MTaTM1 GOTO 370 

360 4 ZAP: PLOT 2,24,12: PLOT 3,24,"PERDU" 
: 


370 : PLOT 15,26,12: PLOT 15,26,"rejouez vous (O/N)" 
380 : GET R$: GET R$ 

400 UNTIL R$<>"0" 

410 END 

8000 REM ---- SP INITIALISATION D'UNE PARTIE ----------- 
8010 T=0 

8060 K=i+INT(RND(1)#NM) 

8068 MO$=MO#(K) 

8080 CLS 

8090 PLOT 3,10,12: PLOT 4,10,M0$ 

8100 WAIT 200: EXPLODE 

8110 CLS 

8120 L=LEN(MO#) 

8130 FOR I=1 TO L+i 

8140 1 X=X1+INT(RND(1)#(X2-X1+1)) 
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5 Y=Y1+INT(RND(I)#(V2-V1+1)) 
8160 + IF SCRNIX,Y)<>32 THEN 8140 
t IF Iél+i THEN PLOT X,Y,MID$(MO$,1,1) 
8180 : IF I=L+1 THEN PLOT X,Y,CB 
8190 NEXT I 
8200 DL=0 
8210 PLOT 2,25,12: PLOT 3,25,"pour commencer, tapez une touche" 
8220 GET R$ 
8230 PLOT 1,25,BL# 
8240 PLOT 2,25,"TEMPS6" 
8250 RETURN 


9000 REM ---- SP INITIALISATION DU JEU ---------mmmuse 
9010 PA=O1 IN=3: I2æ11 PAPER PA: INK IN 
9020 MT=0 


9025 Xi1=2: K2=381 Vi=0: Y2=23 

9030 CB=64: AM=460B0+8%#CB 

9035 DATA 12,30,63,63,63,63,30,12 

9040 FOR I=0 TO 7 

9050 : READ XX: POKE AM+I,XX 

9060 NEXT I 

9070 BL$a"" 

9080 FOR I=i TO 36: BL$=BL$+" "3 NEXT I 

9090 DATA 9 

9100 DATA HARMONIEUSEMENT ,MEGALOMANIE , SCIENTIFIQUE 
9110 DATA RICHISSIME,CACOPHONIE, DRAMATIQUE 

9120 DATA PLANIFICATION,DEMOCRATISATION,RADICALISATION 
9130 READ NM 

9140 DIM MO$(NM) 

9150 FOR I=i TO NM 

9160 : READ MO$(I) 

9170 NEXT I 

9180 POKE #26A,10 

9190 RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier la couleur du fond 


Remplacez, en 9010, la valeur O par un nombre de votre choix (entre 1 et 
7). 
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2. Pour modifier la couleur de la boule et des lettres 


Remplacez, en 9010, la valeur 3 par un nombre de votre choix (entre O et 
7). Évitez d'utiliser la même couleur que pour le fond car, alors, lettres et 
boule deviendraient invisibles”. 


3. Pour jouer sur un domaine plus petit 


Agissez sur la ligne 9025 en augmentant les valeurs de X1 et Y1 et en 
diminuant celles de X2 et Y2. Essayez, par exemple: 


9025 X1-10: X2=30: Y1=5: Y2=20 


4. Pour ajouter de nouveaux mots ou pour modifier les mots 
proposés 


Il vous faut savoir que les instructions DATA" des lignes 9090 à 9120 
fournissent : 


— le nombre total de mots (ici 9) 


— la liste de ces mots. Chaque instruction peut contenir un nombre quel- 
conque de mots; ceux-ci doivent simplement être séparés par des 
virgules. 


Notez bien que vous pouvez placer, non seulement des mots ayant un sens, 
mais éventuellement n'importe quelles suites de caractères (lettres, 
chiffres,...). Cela peut rendre le jeu quelque peu plus compliqué. 


5. Pour utiliser une poignée de jeu 


Chargez le programme ‘ MANETTE 1” comme décrit en annexe. Branchez 
la poignée du côté droit et remplacez les instructions 150,160,170 par: 


130 : CePEEK(#400): IF C<>191 THEN DL=C 


160 : XN=X+((DL AND 1)=0)-((DL AND 2)=0) 
170 & YN=Y+((DL AND 16)=0)-((DL AND 8)=0) 
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4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Configuration clavier/écran. 

— Poignées de jeu (facultatives). 


b) Le programme principal (100-410) 


110 appelle le sous-programme d'initialisation du jeu. 


120 et 400 répètent les instructions 130 à 380 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer: 


130 appelle le sous-programme dl'initialisation d'une partie. 
135 et 280 répètent, pour chaque lettre du mot choisi, les instructions 
140 à 270 qui correspondent au ramassage d'une lettre: 


140-160 déterminent, dans DL, le nouveau déplacement de la 
boule (codé de 1 à 4), en fonction de l'ancien déplacement ou de la 
touche enfoncée. 


170-210 déterminent les nouvelles coordonnées de la boule. 
220 actualise le temps. 
225 est utile pour le début de partie (la boule est alors immobile). 


230-250 déplacent la boule, examinent le contenu de l'emplace- 
ment où elle arrive. 


270 affiche la lettre rencontrée, s'il s'agit de la bonne. 


300-350 cas où le mot a été entièrement reconstitué. On affiche le 
mot ‘’GAGNE”, le temps moyen et le meilleur temps que l'on 
actualise ensuite. 


360 cas où une erreur de lettre a été commise pendant la reconstitu- 
tion. On affiche le mot ‘PERDU. 


370-380 vous demandent si vous souhaitez rejouer. 
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c) Le sous-programme d'initialisation du jeu (9000-9190) 


9010 fixe les couleurs de fond et d'encre. 

9020 initialise le meilleur temps. 

9025 fixe les limites du domaine de jeu. 

9030-9060 fabriquent le caractère graphique représentant la boule. 


9070-9080 préparent une chaîne de 36 caractères “blanc” utilisée pour 
l'effacement. 


9090-9170 remplissent, grâce aux DATA des lignes 9100 à 9120, le 
tableau MO$ des mots parmi lesquels se fera le tirage au hasard. 


9180 supprime le bip du clavier et le curseur d'écran. 


d) Le sous-programme d'initialisation d’une partie (8000-8250) 


8010 initialise le compteur de temps. 


8060-8090 choisissent un mot au hasard (dans MO$), l'affichent à l'écran 
pendant deux secondes. 


8100-8110 font retentir une explosion et effacent l'écran. 


8120-8190 affichent chaque lettre du mot et la boule en un emplacement 
quelconque de l'écran. 


8200 initialise le déplacement de la boule. 


8210-8240 attendent que vous tapiez sur une touche. 


5. Liste des variables 


PA couleur de fond 

IN couleur d'encre employée pour les lettres et la boule 

12 couleur d'encre employée pour le message ‘pour 
commencer...” 
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MT 
X1,X2,Y1,Y2 
CB 

BL$ 


NM 
MOS$(NM) 


T 
MO$ 
L 

DL 


NL 
X,Y 


XN,YN 
SX 


TM 


meilleur temps 
coordonnées du domaine de jeu 
code ASCII du caractère représentant la boule 


chaîne de 36 caractères ‘’blanc'’ servant à l'effacement de 
message 


nombre total de mots parmi lesquels on en choisira un au 
hasard 


tableau contenant les mots parmi lesquels on en tirera un au 
hasard 


compteur de temps écoulé 

mot tiré au hasard pour la partie en cours 
longueur de ce mot 

déplacement courant de la boule 

0: boule immobile (seulement en début de partie) 


1: gauche 


N 


: droite 


Co 


: bas 


BR 


: haut 


numéro de la prochaine lettre à ramasser 


coordonnées courantes de la boule (sauf dans le sous- 
programme 8000) 


prochain emplacement de la boule 


code du caractère situé sur le prochain emplacement de la 
boule 


temps moyen (par lettre) 


Variables auxiliaires 


AM I XX 


K R$ 


X et Y (dans le sous-programme 8000) 
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ô 


Phosphore 


1. Le jeu 


Le but de ce jeu de mémoire consiste à retenir des suites de lettres les plus 
longues possibles. Dix essais vous sont proposés. Pour chacun d'entre eux, 
le programme commence par vous montrer pendant un court instant une 
première lettre choisie au hasard. || vous demande ensuite quelle était la 
lettre affichée. Si votre réponse est correcte, le programme vous gratifie 
d'un petit compliment et vous montre à nouveau cette lettre suivie d'une 
seconde. Cela se poursuit ainsi avec trois lettres, puis quatre. jusqu'à ce 
que vous vous trompiez. Vous marquez alors un nombre de points égal au 
nombre de lettres que vous avez réussi à retenir. 


Le programme affiche en permanence le numéro de l'essai que vous êtes 
entrain de jouer, le nombre de lettres que vous avez déjà mémorisées pour 
l'essai en cours, votre score et le meilleur score. 
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Chaque lettre proposée est accompagnée d'un son (qui reste le même pour 


une 


lettre donnée) qui peut faciliter la mémorisation. 


REMARQUE: Bien attendre que le programme vous pose la question: 
‘quelles étaient les lettres proposées” avant de commencer à taper votre 
réponse. 


2. Le programme 


100 
110 
120 
130 
140 


160 
170 
175 


185 
190 
200 


220 
230 
240 


6000 
6010 
6020 
6030 
6500 
6510 
6520 
6530 
6540 
6550 
7000 
7010 
7020 


REM ##*% PHOSPHORE ##4# 

GOSUB 9000 

FOR CC=1 TO NC 

5 XA=CC: XD=XF(1): GOSUB 6000 

! LE$=" " 

3 GOSUB 8000 

! GOSUB 7000 

: IF OK=1 THEN 150 

t IF CC=NC THEN 200 

: PLOT 0,26,20: PLOT 1,26,3 

# PLOT 2,26,"tapez sur une touche pour continuer" 
t R$=KEY$: IF R$="" THEN 190 

NEXT CC 

IF SC>MS THEN MS=6C 

XA=MS: KXD=XF(4): GOSUB 6000 

CLS: PLOT 5,12,"voulez vous rejouer (O/N)'" 


GET R$: IF R$="Q0" THEN 120 

END 

REM .,, SP AFFICHAGE VALEUR NUMERIQUE ..,.,,,., 
CH$=STR$(XA)+" " : GOSUB 6500 

CH$=" " : GOSUB 46500 

RETURN 

REM ..,. SP DEPOS CHAINE CARAC EN MEM GRAPH ,.,,,,,,,, 
LE=LEN(CH$) 

FOR KK=1 TO LE 


t POKE XD+KK-1,ASC(MID$(CH$,KK,1)) 

NEXT KK 

RETURN 

REM .,..6P LECTURE DE LA REPONSE ,,.,.,,.,,,,,,,,., 
CLS: PAPER 6: INK 4 

NLELEN(LES#) 
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FOR I=1 TO 4: PRINT: NEXT I 

IF NL=i THEN PRINT "quelle etait la lettre?" 
IF NL>1 THEN PRINT "quelles etaient les ";NL;" lettres?" 
PRINT 

FOR I=1 TO NL 

1 R$=KEY$: IF R$="" THEN 7080 

: PRINT R$:; 

5 IF R$CDMID$S(LES$,1,1) THEN 7200 

NEXT I 

PRINT: PRINT: PRINT: WAIT 50 

PRINT R$CINT(RND(1)#NR+1)) 

OKs=1 

WAIT 100 

RETURN 

PRINT : PRINT: PRINT N$(CRND(1)#xNN+1) 

ZAP: WAIT 50 : PRINT 

PRINT "la bonne reponse etait :" 

GOSUB 8500 

GOSUB 7500 

OK=0 

WAIT 150 

RETURN 

REM .., GP MISE A JOUR ET AFFICHAGE DU SCORE ...,.,. 
PæLEN(LE#$)-1 

PLOT 1,15,"vous marquez"s PLOT 13,15,14 PLOT 14,15,6TR#(P) 
PLOT 14,15," "3 PLOT 18,15,4: PLOT 19,15,"points" 
WAIT 30 

SC=6C+P 

KA=SC: XD=XF (3): GOSUB 4000 

WAIT 50 

RETURN 

REM .., SP AFFICHAGE DES LETTRES ...,..,., 
CLS: PAPER 6: INK 4 

PLOT 10,10,"REGARDEZ" 

WAIT 150:CLS 

IN=ENÇCINT(RND(1)#NE+1)) 
PA=PACINT(RND(1)#NP+1)) 

PAPER PA: INK IN 

Ceb5S+INT(RND(1)#26) 

LE$=LES$+CHRS$(C) 

XA=LEN(LE#$): XD=XF(2): GOSUB 6000 

GOSUB 8500 

RETURN 


REM ,.., SP AFFICHAGE SONORE DES LETTRES ..,,,,,,,.,: 
PLAY 1,0,0,0 

FOR I=1 TO LEN(LES#) 

1 C$=MID#(LES$,1,1) 

s 6=6*(ASC(C$)-40) 

t SOUND 1,5,6 

: PLOT 1,12,C$ 

WAIT 50 

NEXT I 

PLAY 0,0,0,0 : WAIT 100 

RETURN 

REM .., SP INITIALISATIONS ...,,,,,..,.,., 

NC=10: AD=48000 

PRINT CHR$(17)3 

FOR I=1 TO 39: POKE AD+1,32: NEXT I 

DIM C$(4), XD(4), XF(4), IN(4) 

XD(1)=AD+1: C$(1)="COUP" 1 IN(1)=2: XF(1)=XD(1)+5 
KD(2)=#AD+10:C$(2)="LETTRES": IN(2)=6: XF(2)=#XD(2)+8 
XD(S)=AD+22:C$(3)="6C 1U 4 IN(S)=3: XF(3)=XD(3)+3 
XD(4)=AD+30: C$(4)="M-6C": IN(4)=3: XF(4)=KD(4)+4 
PS=17: POKE AD,PS 

FOR I=1 TO 4 

3 CH$=CHRS#(IN(I))+C#(I) 

4 XD=XD(I) 

: GOSUB 6500 

NEXT I 

DATA 3,2,3,6 

READ NP: DIM PA(NP) 

FOR I=i TO NP READ PA(I): NEXT I 

DATA 3,1,4,5 

READ NE: DIM EN(NE) 

FOR Iei TO NE: READ EN(I): NEXT I 

DATA 9 

DATA OK,QOUI,EXACT,BIEN,JUSTE ,CORRECT,BRAVO,PARFAIT, VRAI 
READ NR: DIM R$(NR) 

FOR I=1 TO NR: READ R#(I): NEXT I! 

DATA 5 

DATA NON,FAUX,INEXACT, INCORRECT ,ERREUR 

READ NN: DIM N$(NN) 

FOR I=i TQ NN: READ N#(I): NEXT I 

RETURN 


55 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier le temps qui s'écoule entre l'affichage de deux 
lettres successives 


Remplacez, en 8570, le nombre 50 par la valeur de votre choix (exprimée 
en dizaines de ms). 


2. Pour modifier le temps d'attente à la fin de la présentation d'une 
suite de lettres 


Remplacez, en 8590, le nombre 100 par la valeur de votre choix. 


3. Pour supprimer le message ‘ REGARDEZ” qui apparaît pendant 
1,55, 


Supprimez les instructions 8020,8030. 


4. Pour modifier le nombre d'essais proposés 


Remplacez, en 9008, la valeur 10 par celle de votre choix. 


5. Pour modifier les couleurs employées pour la présentation des 
lettres, sachez que: 


— l'instruction DATA de la ligne 9160 contient le nombre de couleurs de 
fond (ici 3), suivi des codes de ces couleurs (ici 2, 3 et 6). 


— l'instruction DATA de la ligne 9190 contient le nombre de couleurs 
d'encre (ici 3) suivi des codes de ces couleurs (ici 1, 4 et 5). 


REMARQUE: Évitez de placer deux codes de couleurs identiques dans 
chacune de ces instructions car, de temps en temps, les lettres proposées 
seraient invisibles. 
6. Pour obtenir des suites de chiffres à la place des suites de lettres 
Remplacez la ligne 8070 par: 

8070 C—48+INT(RND(1) * 10) 
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4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Affichage ligne supérieure. 

— Configuration clavier/écran. 

— Écriture directe en mémoire d'écran. 


b) Le programme principal (100-250) 


110 appelle le sous-programme d'initialisation du jeu (en 9000). 


120-200 proposent les dix essais. Pour chaque essai: 
130 affiche le numéro du coup. 
140 initialise la suite de lettres proposée. 


150-170 ajoutent une lettre à la suite proposée (sous-programme 
8000) et lisent votre réponse (sous-programme 7000) jusqu'à ce que 
celle-ci soit fausse. 


175-190 vous permettent de ‘’souffler'” entre deux essais en vous 
demandant de frapper une touche lorsque vous êtes prêt à pour- 
suivre. L'instruction 175 évite que cette question ne soit posée à la 
fin du dernier essai. 


210-220 actualisent et affichent le meilleur score. 


230-240 vous demandent si vous désirez faire une nouvelle partie. 


c) Le sous-programme d'initialisation du jeu (9000-9300) 

9008 fixe le nombre d'essais d'une partie et l'adresse de début de la ligne 
supérieure. 

9010 supprime le curseur d'écran. 


9020 efface la ligne supérieure de l'écran (celle où apparaît le mot 
"CAPS". 


9040-9075 déterminent les emplacements et les différents textes que l'on 
souhaite voir figurer en ligne supérieure, ainsi que leur couleur. 


9080 fixe la couleur de fond de la ligne supérieure. 
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9090-9130 affichent les textes voulus en ligne supérieure. 


9160-9210 déterminent les différentes couleurs de fond et d'encre qui 
seront utilisées lors de la présentation des suites de lettres. 


9220-9290 fixent les différents messages qui seront formulés par le 
programme, après votre proposition. 


d) Le sous-programme de préparation d'une suite de lettres 
(8000-8110) 

8010-8030 affichent le message REGARDEZ" pendant 1,55. 

8040-8060 choisissent une couleur de fond et une couleur d'encre. 


8070-8080 choisissent une lettre au hasard et l’ajoutent à la suite déjà 
proposée. 


8090 affiche, en ligne supérieure, le nombre de lettres proposées. 


8100 appelle le sous-programme d'affichage des lettres. 


e) Le sous-programme d'affichage d'une suite de lettres 
(8500-8600) 


8510-8580 affichent chacune des lettres de la suite, en émettant un son 
(dont la fréquence dépend de la lettre), et en attendant une demi- 
seconde entre chaque lettre. 


8590-8600 suppriment le son et attendent une seconde. 


f) Le sous-programme de lecture de la réponse du joueur (7000- 
7250) 
7000-7060 vous demandent quelles étaient les lettres proposées. 


7070-7110 lisent votre réponse, lettre par lettre, en la comparant avec la 
suite proposée et en s'arrêtant dès qu'une erreur est rencontrée. 


7115-7150 exécutées en cas de réponse correcte: impriment un petit 
message de compliments. 


7200-7250 exécutées en cas de réponse incorrecte : impriment un petit 
message d'erreur, émettent un ‘’zap”, affichent (en musique) la 
réponse exacte et comptabilisent vos points (sous-programme 7500). 
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g) Sous-programmes d'affichage en ligne supérieure (6000-6500) 


Le sous-programme 6500 affiche le contenu de la chaîne CH$, à partir de 
la colonne de rang XD de la ligne supérieure. 


Le sous-programme 6000 affiche la valeur contenue dans XA, à partir de la 
colonne de rang XD de la ligne supérieure. 


5. Liste des variables 


NC 
AD 


PS 
C$(4) 
XD(4) 
XF(4) 


IN(4) 
NP 


PA(NP) 
NE 
EN(NE) 
NR 


RS(NR) 
NN 


nombre d'essais proposés 


adresse mémoire correspondant au début de la ligne supérieure 
de l'écran 


couleur de fond employée pour la ligne supérieure 
tableau contenant les textes inscrits en ligne supérieure 
tableau contenant les emplacements de ces textes (dans la ligne) 


tableau contenant les emplacements des valeurs correspondant à 
ces textes 


couleur d'encre utilisée pour chacun de ces textes 


nombre de couleurs différentes employées pour le fond lors de la 
présentation des lettres 


tableau contenant les valeurs correspondant à ces différentes 
couleurs 


nombre de couieurs différentes employées pour l'écriture des 
lettres, lors de leur présentation 


tableau contenant les valeurs correspondant à ces différentes 
couleurs 


nombre de messages différents utilisés pour encourager le joueur 
lorsqu'il a trouvé la bonne suite de lettres 


tableau contenant ces différents messages 


nombre de messages différents utilisés en cas de mauvaise 
réponse 


N$(NN) tableau contenant ces différents messages 
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CC 
LES 
IN 
PA 
C 
NL 
P 
SC 
OK 


MS 


numéro de l'essai courant 

chaîne contenant la suite de lettres proposées 

couleur d'encre (courante) utilisée pour l'affichage des lettres 
couleur de papier utilisée lors de l'affichage des lettres 

code ASCII de la dernière lettre ajoutée à la suite proposée 
nombre de lettres proposées 

nombre de points marqués à la fin d'un essai 

score (nombre total de points) 


prend la valeur 1 quand la réponse du joueur est correcte, O dans 
le cas contraire 


meilleur score 


Variables auxiliaires 


XD XA 
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| R$ CH$ LE KK 


9 


Les allumettes suédoises 


1. Le jeu 


Nous vous proposons ici une version simplifiée du célèbre jeu, connu 
également sous le nom de “Marienbad”’. Ce programme vous donnera une 
bonne idée des dessins que l'on peut réaliser avec l'ORIC, sans même utili- 
ser le mode haute résolution graphique (HIRES). 


Le jeu proposé se joue à deux. lci, vous jouez contre l'ordinateur (ou plutôt 
contre le programme). Au départ, vous êtes en présence de 36 allumettes. 
Chaque joueur, à tour de rôle, choisit d'enlever un nombre d'allumettes 
compris entre 1 et 7. Celui qui est obligé d'enlever la dernière allumette a 
perdu. 


Le programme commence par dessiner les 36 allumettes puis choisit au 
hasard celui qui jouera en premier. Quand c'est au programme de jouer, il 
vous dit: ‘’j'enlève x allumettes”. Vous voyez ensuite les allumettes 
concernées clignoter puis disparaître en musique (chaque allumette égrène 
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une note de la gamme). Quand c'est à vous de jouer, vous voyez apparaître 
la question ‘combien d'allumettes retirez-vous ? Vous répondez en tapant 
sur le chiffre souhaité. Notez que toute touche ne correspondant pas à un 
nombre compris entre 1 et 7 est purement et simplement ignorée. 


Le programme affiche en permanence le nombre d'allumettes restant 
(RESTE), le numéro de la partie que vous êtes entrain de jouer ainsi que le 
nombre de parties gagnées par vous et par lui. (Voir photo 2 hors texte: 
Vue de l'écran pendant le déroulement du jeu). 


2. Le programme 


100 REM #######4##% LES ALLUMETTES SUEDOISES ####%#%#%4#4 44 
110 GOSUB 9000 


120 REPEAT 

130 : GOSUB 8000 

140 : REPEAT 

150 + IF JO=1 THEN GOSUB 5000 ELSE GOSUB 4000 
160 : GOSUB 3000 

170 1 NaN-P 

180 3 PLOT 3,2,STR$(N)+" "3 PLOT 3,2," " 

190 1 JO=-J0 

200 : UNTIL N<z=i 

210 s IF N=1i AND JO=1 THEN GOSUB 2000 ELSE GOSUB 2500 
220 : GOSUB 8500 

230 : JD=-JD 

240 UNTIL R$<>"0" 

250 END 


2000 REM ... SP JOUEUR GAGNANT 

2010 PJ=PJ+1 

2020 PLOT 18,2,STR#(PJ)s: PLOT 18,2," " 

2030 RETURN 

2300 REM .., SP ORDINATEUR GAGNANT ,,,,,,,,,,,,,,, 
2510 PO=PO+1 

2520 PLOT 31,2,STR$#(PQO)3 PLOT 31,2," " 

2530 RETURN 
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3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3400 
3500 
3510 
3320 
3530 
3560 
3570 
3380 
3390 


REM ... SP EFFACEMENT P ALLUMETTES secsueuuusss 
RD=1: KD=N-P+1 

IF N-P>=18 THEN RD=2: KD=KD-18 
RF=i1 KF=N 

IF N D=18 THEN RF=2: KF=KF-18 
YD=10#(RD-1)+5 

X=2#KD-1 

FOR Y=YD TO YD+7 

à PLOT X,Y,12 

NEXT Y 

IF RD=RF THEN 3140 

FOR Y=15 TO 22 

à PLOT 1,Y,12 

NEXT Y 

WAIT 200 

BS=1r KN=01 OC=3 

IF RD=RF THEN 3300 

FOR X=24KD-1 TO 36 

à FOR Y=5 TO 12 

1 PLOT X,Y,32 

à NEXT Y 

1 GOSUB 3500 

NEXT X 

FOR X=1 TO 2#KkF 

1 FOR Y=15 TO 22 

1 PLOT X,Y,32 

1 NEXT Y 

1 GOSUB 3500 

NEXT X 

GOTO 3400 

FOR X=2#KD-1 TO 2#KF 

1 FOR Y=YD TO YD+7 

1 PLOT X,Y,32 

à NEXT Y 

: GOSUB 3500 

NEXT X 

RETURN 

REM ... SP EMISSION NOTE LORS EFFACEMENT .,,.,.. 
BS=-B6 

IF BS=1 THEN KN=KN+1 ELSE 3590 
MUSIC 1,0C,NO(KN) ,0 

PLAY 1,0,1,500 

WAIT 20 

IF KN=7 THEN KN=O1 OCmOC+i 
RETURN 


63 


64 


REM ,,,. 6P LECTURE CHOIX DU JOUEUR ess 
PLOT 1,25,"Combien d'allumettes retirez vous?" 
R#$=KEY$1 IF R$="" THEN 4020 

P=ASC(R$)-48 

IF P>0 AND P<=PM THEN 4080 

PLOT 1,26,"entre 1 et" 

PLOT 13,26,S8TR#(PM)s PLOT 13,26," " 

GOTO 4020 

PLOT 37,25,R$ 

WAIT 50 

PLOT 1,26,BL$# 

RETURN 

REM ,.,, GP CHOIX ORDINATEUR NB ALLUMETTES ,,,,,., 
Q=INT(N/(PM+1)) 

ReN-GQ+*(PM+1) 

P=R-11 IF P<20 THEN P=P+PM+i 

IF P>PM THEN P=INT(RND(1)#PM+1) 

IF N<=PM+1 THEN PeN-1 

PLOT 1,25,BL$ 

PLOT 2,25,"J'enleve" 

PLOT 10,25,STR$#(P)a PLOT 10,25," " 

IF Pzi THEN PLOT 13,25,"allumette" 

IF P>1 THEN PLOT 13,25,"allumettes" 

WAIT 200 

RETURN 

REM ,,, SP DESSIN DES ALLUMETTES ..sssssuouussuus 
ND=181 IF NXC18 THEN ND=NX : 
FOR X=2 TO 2*ND STEP 2 

1 PLOT X,5,C1 

1 PLOT X,6,C2 

1 FOR Y=7 TO 12 

1  PLOT X,Y,CT 

1 NEXT Ÿ 

NEXT X 

ND=NX-ND 

IF ND<=0 THEN 7200 

FOR X=2 TO 2#ND STEP 2 

4 PLOT X,15,C1 

1 PLOT X,16,C2 

1 FOR Y=17 TO 22 

5  PLOT X,Y,CT 

1 NEXT Ÿ 

NEXT X 

RETURN 


8000 
8010 
8020 
8030 
8035 
8040 
8050 
8060 
B070 
8080 
8090 
8100 
8110 
8130 
8500 
8505 
8510 
8520 
8530 
8540 
8550 
8360 
8570 
9000 
9010 
9020 
9030 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 
9250 
9255 
9260 
9270 


REM .., BP INITIALISATION D'UNE PARTIE .,..,,,,,, 
NeNXs NPaNP+i 

PLOT 9,2,S8TRS$ (NP) PLOT 9,2," " 

PLOT 3,2,S8TR$#(N)+" "3 PLOT 3,2," " 

GOSUB 7000 

IF JD=1 THEN PLOT 2,24,"je joue le premier" 

IF JD=-i THEN PLOT 2,24,"vous jouez le premier" 
JO=JD 

WAIT 100 

PLOT 2,26,"pour commencer, tapez sur une touche" 
R$=KEY$r IF R$="" THEN 8090 

PLOT 1,24,BL$# 

PLOT 1,26,BL$ 

RETURN 

REM .., SP FIN DE PARTIE sssssosussmossuunnsnuus 
WAIT 200 

FOR Ys=3 TO 15 

1 PLOT 2,Y,32 

NEXT Y 

PLOT 2,25,"Voulez vous rejouer (O/N)7?7" 

R$=KEY$1 IF R$z"" THEN 8550 

PLOT 1,25,BL$ 

RETURN 

REM .,,. SP INITIALISATIONS .,....sssssssoeusus 
Pil=3s Tizi: P2mbr IGai:s IT=3: PSz51 19=7 

NX=36: PM=7: NP=0: PO=0: PJ=0 

CLS: PAPER P223 INK IT 

AM=48040 

FOR !=0 TO 3 

t POKE AM +40*I,P1+16 

1 POKE AM+1+40%I,I1 

NEXT I 

FOR I=24 TO 26 

1 POKE AM +40%I,P3+16 

1 POKE AM+1+404%I,1I3 

NEXT I! 

FOR I=5 TO & 

1 POKE AM+1+40%I,15S 

NEXT I 

FOR 1=15 TO 16 

1 POKE AM+1+40%I,1S 

NEXT I 

PLOT 1,1,"RESTE PARTIE VOTRE SCORE MON SCORE" 
CT=b41 Ci=951 C2=96 

DATA 30,30,30,30,30,30,30,30 

CæCT: GOSUB 9500 
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9280 
9290 
9300 
9310 
9320 
9330 
9340 
9350 
9360 
9370 
9380 
9390 
9393 
9400 
9500 
9510 
9320 
9530 
9540 
9550 


DATA 0,0,0,0,12,30,63,63 
C=Ci: GOSUB 9500 

DATA 63,63,63,63,63,30,30,30 

C=C21 GOSUB 9500 

IF NXD36 THEN NX=36 

JD=i1 IF RND(1)30.5 THEN JD=-1 

BL$=""r FOR I=i TO 38e BL#=BL$+" "a NEXT I 
DATA 1,3,5,6,8,10,12 

DIM NO(7) 

FOR I=1 TO 7 

1 READ NO(1) 

NEXT I 

POKE #26A,10 

RETURN 

REM .., GP INIT GRAPHIQUES esse eseoneues 
AM=46080+84#C 

FOR I=0 TO 7 

1 READ XX: POKE AM+I,XX 

NEXT I 

RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour changer la couleur de la zone principale où sont dessinées 


les allumettes 


Remplacez, en 9010, la valeur 6 (dans P2 = 6) par un nombre de votre 


choix, compris entre O et 7 (mais différent de 1 et de 3). 


2. Pour modifier les couleurs en général 


Reportez-vous à la liste des variables et voyez le rôle de: P1,11, P2,1IS, IT, 


P3, 13. Modifiez la ligne 9010 en fonction de vos desiderata. 


3. Pour modifier le nombre total d'allumettes 


Remplacez, en 9020, la valeur 36 par un nombre de votre choix ne dépas- 


sant pas 36. 
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4. Pour modifier le nombre maximum d'allumettes que l'on peut 
supprimer en une fois 


Remplacez, en 9020, la valeur 7 par un nombre de votre choix, compris 
entre 1 et 9. 


4, Description du programme 


a) Techniques utilisées décrites en annexe 


— Création de caractères graphiques. 
— Écriture directe en mémoire d'écran. 
— Configuration clavier/écran. 


b) Le programme principal 


110 appelle le sous-programme d'initialisation du jeu. 


120 et 240 répètent les instructions 130 à 230 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne désirez plus rejouer: 
130 appelle le sous-programme d'initialisation d'une partie. 


140 et 200 répètent le jeu d’un coup (par vous ou par le programme) 
jusqu'à ce qu'il ne reste plus qu'une allumette. 


150 permet le choix du nombre d'allumettes à retirer, soit par vous 
(sous-programme 4000), soit par l'ordinateur (sous-programme 


5000). Le joueur est indiqué par la variable JO (1 : ordinateur; —1: 
vous). 


160 appelle le sous-programme qui fait “disparaître” les allu- 
mettes concernées. 


170-180 actualisent le nombre d'allumettes restantes. 
190 change de joueur. 


210 analyse le résultat de la partie et appelle, suivant le cas, l'un des 
sous-programmes ‘joueur gagnant” où ‘ordinateur gagnant”. 


220 appelle le sous-programme de fin de partie. 
230 change le joueur qui doit commencer la partie. 
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c) Le sous-programme d'initialisation du jeu (9000-9400) 


9010 fixe les différentes couleurs intervenant sur l'écran. 


9020 fixe le nombre d'allumettes, la prise maximum autorisée et initialise 
les compteurs. 


9030-9240 donnent les couleurs voulues aux différentes zones de l'écran. 
Les couleurs principales sont attribuées par PAPER et IN à l'ensemble 
de l'écran. Les autres couleurs sont déterminées par l'écriture directe 
(POKE) d'attributs en mémoire d'écran. 


9250 affiche les titres de la zone supérieure. 


9255-9310 fabriquent les caractères graphiques servant à représenter la 
tige et la tête des allumettes. 


9330 choisit, au hasard, le joueur qui commencera la première partie. 


9340-9390 placent dans le tableau NO les codes (employés par MUSIC) 
des notes de la gamme. 


d) Le sous-programme d'initialisation d'une partie (8000-8130) 

8010-8030 initialisent le nombre total d'allumettes et actualisent le 
numéro de partie. 

8035 appelle le sous-programme de dessin des allumettes. 


8040-8110 écrivent un message précisant qui joue en premier, initialisent 
le numéro du joueur courant et attendent que vous tapiez sur une 
touche. 


e) Le sous-programme de dessin des allumettes (7000-7200) 


7010-7080 dessinent les allumettes de la rangée supérieure (dix-huit au 
maximum). 


7090-7170 dessinent, s'il y a lieu, les allumettes de la rangée inférieure 
(lorsque le nombre total d'allumettes est supérieur à dix-huit). 


f) Le sous-programme de choix du joueur (4000-4110) 


4010-4030 vous demandent combien d’allumettes vous souhaitez enlever 
et lisent votre réponse. 
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4040 vérifie que votre réponse est correcte. 


4050-4070 vous précisent les valeurs autorisées lorsque votre réponse est 
incorrecte. 


4080-4100 affichent la réponse lue puis effacent la question, après un 
court instant. 


g) Le sous-programme de choix de l'ordinateur (5000-5090) 


5010-5034 déterminent le nombre d'allumettes à enlever. 
5035-5080 affichent ce nombre. 


h) Le sous-programme d'effacement de ‘’’P'’ allumettes (3000- 
3400) 


P contient le nombre d'allumettes à effacer. 
3010-3060 déterminent les emplacements des allumettes à effacer. 
3070-3130 font clignoter pendant 2 secondes les allumettes à effacer. 


3150 initialise le processus d'effacement. 


3160 examine si les allumettes à effacer sont ou non dans la même 
rangée. 


3170-3350 effacent les allumettes en utilisant le sous-programme 3500 
pour émettre une note différente pour chaque allumette effacée: 
3170-3280 correspondent au cas où les allumettes à effacer sont 

situées dans deux rangées différentes. 
3300-3350 correspondent au cas où elles sont situées dans une 
même rangée. 


REMARQUE: Par souci de simplification, ce sous-programme traite de la 


même manière une ‘’colonne”’ contenant une allumette qu'une colonne 
séparant deux allumettes. 


i) Le sous-programme d'émission d’une note (3500-3590) 
Il est appelé pour chaque ‘’ colonne” effacée. L'indicateur BS permet de 


n'émettre une note que dans le cas où l'on a effectivement effacé une 
allumette. 
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j) Les sous-programmes joueur gagnant (2000-2030) et ordinateur 
gagnant (2500-2530) 


Ils actualisent le nombre de parties gagnées. 


k) Le sous-programme de fin de partie (8500-8570) 


8505-8530 effacent la dernière allumette, après un temps d'attente. 


8540-8560 vous demandent si vous voulez rejouer. 


5. Liste des variables 


pP1 
11 
pP2 


C2 
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couleur de fond de la zone supérieure 
couleur d'encre employée dans la zone supérieure 


couleur de fond de la zone principale (où sont dessinées les 
allumettes) 


couleur de la tête des allumettes 

couleur de la tige des allumettes 

couleur de fond de la zone inférieure 

couleur d'encre employée dans la zone inférieure 

nombre total d'allumettes 

nombre maximum d'allumettes que l'on peut retirer en une fois 
nombre de parties jouées 

nombre de parties gagnées par l'ordinateur 

nombre de parties gagnées par le joueur 

adresse mémoire du début de l'écran 


code ASCII du caractère utilisé pour représenter la tige des 
allumettes 


code ASCII du caractère représentant la partie supérieure de la 
tête des allumettes 


code ASCII du caractère représentant la partie inférieure de la tête 
des allumettes 


JD 
BL$ 


NO(7) 


N 
JO 
ND 
X,Y 
P 
BS 


OC 
KN 


RD 
KD 
RF 
KF 


joueur commençant la partie: (1 : ordinateur; —1 : joueur) 


chaîne de 38 caractères ‘blanc’ employée pour effacer des 
messages 


tableau contenant les numéros (employés par l'instruction 
MUSIC) des sept notes de la gamme (1 pour DO, 3 pour RE, 5 
pour MI, 6 pour FA, etc...) 


nombre d'allumettes restantes 

joueur courant (1: ordinateur; —1 : joueur) 

nombre d'allumettes à dessiner dans une rangée 

coordonnées courantes d'un emplacement écran 

nombre d'allumettes à enlever (choix du joueur ou de l'ordinateur) 


indicateur employé dans le sous-programme d'émission d'une 
note. Quand il vaut +1, une note doit être émise. 


octave de la note émise 


pointeur dans le tableau NO. NO(KN) donne le code de la note à 
émettre. 


rangée (1 ou 2) contenant la première allumette à effacer 
numéro, dans la rangée, de la première allumette à effacer 
rangée contenant la dernière allumette à effacer 

numéro, dans la rangée, de la dernière allumette à effacer. 


Variables auxiliaires 


R$ YD 


C AM XX Q R 
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10 
MASTER MIND 


1. Le jeu 


Il s’agit là d'un grand classique des jeux de réflexion. Si vous en connaissez 
déjà les règles, vous retrouverez un univers familier. Par rapport au jeu 
manuel vous rencontrerez essentiellement deux différences : 


e Le nombre de positions peut atteindre 6 tandis que le nombre de 
couleurs peut atteindre 9. 


e Manuellement, vous preniez un pion pour le déposer dans un trou du 
plateau de jeu. Ici, vous sélectionnez la couleur de votre pion grâce à un 
curseur que vous déplacez à l'aide des touches - et +. Cette façon de 
procéder évite la sempiternelle question ‘entrez les couleurs choisies” 
qui oblige toujours à coder les couleurs (chiffres, lettres,...). Ici, on choi- 
sit naturellement sa couleur en la désignant. 


Si vous n'avez jamais pratiqué ce jeu, vous allez pouvoir vous y exercer 
tranquillement sans risquer d'être l'objet de commentaires désobligeants 
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des plus entraînés. Votre compagnon ordinateur ne marquera aucune 
impatience. Et quand bien même vous ne parviendriez pas à trouver en 
22 coups une simple combinaison de 2 couleurs sur 2 positions, il se 
contentera simplement de vous montrer la solution, sans commentaires. 


a) Le but du jeu 


Il consiste à découvrir une combinaison de couleurs, tirée en secret par le 
programme. Pour celà, vous formulez des propositions de combinaison. 
Pour chacune de ces combinaisons, le programme vous renseigne sur: 


— le nombre de couleurs exactes, situées en bonne position, 


— le nombre de couleurs exactes, mais situées en mauvaise position. 


b) Déroulement d'une partie 


Au départ, le programme vous fait choisir le nombre de positions (2 à 6) et 
le nombre de couleurs (2 à 9). Vous pouvez ainsi choisir vous-même la 
difficulté du jeu. Ce choix vous sera rappelé, tout au long de la partie, en 
bas à gauche de l'écran. Par exemple 4P signifie 4 positions et 9C signifie 
9 couleurs. En même temps, les couleurs avec lesquelles vous pourrez 
jouer (compte tenu de votre choix) apparaissent en bas à droite sous 
formes de ronds de couleur. Jusqu'à 5 couleurs, il s'agit de ronds “pleins”, 
au delà, vous retrouvez les mêmes couleurs sous forme de “cercles”. 


Le programme choisit alors, en secret, une combinaison de couleurs (les 
répétitions sont possibles). Pour deviner cette combinaison inconnue, vous 
faites une proposition en choisissant parmi les couleurs affichées. Pour 
celà, vous amenez la flèche noire sous la couleur voulue grâce aux deux 
touches de déplacement horizontal. Vous sélectionnez la couleur en 
appuyant sur la barre d'espace (un son vous confirme que votre couleur a 
été enregistrée). Un pion de cette couleur apparaît alors sur l'écran (en 
haut) à l'emplacement qui était signalé par une croix. 


Cette croix apparait maintenant un peu plus loin pour vous montrer que le 
programme attend que vous choisissiez une seconde couleur. Celà se pour- 
suit jusqu'à ce que vous ayez choisi autant de couleurs qu'il y a de positions 
prévues. 


L'ordinateur vous fournit alors sa réponse sous forme de petits pions 
accompagnés de musique. Le rythme d'apparition de ces pions est irrégu- 
lier, ce qui donne l'impression que l'ordinateur “réfléchit” avant de 
répondre. La signification des pions est la suivante: 
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e une couleur à sa place pour chaque petit pion noir cerclé de blanc; 
e une bonne couleur, non à sa place, pour chaque petit pion blanc. 


Si, par malchance (ou peut-être par chancel), votre proposition ne 
comporte aucune bonne couleur, vous entendrez simplement ”zap”. 


Le programme vous demandera ensuite de formuler une autre proposition 
(à moins que vous ne soyez tombé juste au premier coup !). Le Jeu se pour- 
suivra ainsi jusqu'à ce que vous trouviez la bonne combinaison ou que vous 
dépassiez le nombre maximum (22) de propositions. Dans ce dernier cas, le 
programme vous fournira sa combinaison cachée et vous pourrez observer 
tout à loisir l'écran rempli de pions de couleurs et éventuellement analyser 
votre jeu (peut-être, même, vérifier que le programme n'a pas menti! eh! 
on ne sait jamais...). 


REMARQUE: || peut vous arriver de vous tromper pendant que vous faites 
une proposition. Dans ce cas, vous pouvez annuler la proposition en cours 
en appuyant deux fois de suite sur la touche return” (vous verrez les pions 
déjà proposés s'effacer). (Voir photo 3 hors texte : Vue de l'écran pendant le 
déroulement du jeu). 


2. Le programme 


100 REM ########%X MASTER MIND #H#HXHUUUUEU 
150 GOSUB 9000 


160 REPEAT 

170 : GOSUB 8000 

180 : CP=0 

190 : REPEAT 

200 4 CP=CP+1 

210 : GOSUB 5000 

220 1 GOSUB 4000 

230 : UNTIL PE=NP OR CP>=NX 

240 « IF PE=NP THEN GOSUB 2000 ELSE GOSUB 3000 
250 x PLOT XD+1,26,"rejouez vous (O/N)" 


260 : GET R$: GET R$ 
270 UNTIL R$<>"O" 
290 END 
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REM ----- SP GAGNE --------"mmmm—— 
FOR Y=24 TO 261 FOR X=XD TO 38 

4 PLOT X,Y,32 

NEXT X: NEXT Y 

PLOT XD,24,"VOUS AVEZ TROUVE EN" 

PLOT XD,25,CHR$(12)+CHR$(3)+S8TR$(CP)+" COUPS" 

PLOT XD+2,25," " 

WAIT 300 

RETURN 

REM ----- SP PERDU ---==m——— 
FOR Y=24 TO 261 FOR X=XD TO 38 

1 PLOT X,Y,32 

NEXT X: NEXT Y 

ZAP 

PLOT XD-1,24,12: PLOT XD,24,"LA COMBINAISON ETAIT" 
X=XD: Y=25 

FOR I=1 TO NP 

1 CA=PI 

t ICSTI(I): IF IC>5 THEN CA=P2: IC=1C-5 

1 PLOT X,Y,CO(IC)1 PLOT X+1,Y,CA 

s K=X+2 

NEXT I 

WAIT 200 

RETURN 

REM ----- SP ANALYSE DE LA COMBINAISON PROPOSEE ------- 
FOR I=i TO NPs TP(I)=TI(I)s NEXT I 

PE=0 

FOR I=i TO NP 

4 IF TP(I)=PR(I) THEN PE=PE+i11 TP(I)=08 PR(I)=-1 
NEXT I 

CE=0 

FOR I=i TO NP 

1 FOR J=1 TO NP 

4 IF TP(J)=PR(I) THEN CE=CE+i: TP(J)20: GOTO 4100 
1 NEXT J 

NEXT I 

PLOT X+1,Y,73 X=X+2 

IF PEns0 THEN 4200 

FOR I=1 TO PE 

5 WAIT TM#RND(1) 

t MUSIC 1,02,N2,0: PLAY 1,0,1,200 

s PLOT X,Y,RI 

5 X=X+1 

NEXT I 

IF CE=0 THEN 4300 
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4210 
4220 
4230 
4240 
4250 
4260 
4300 
4310 
4320 
5000 
5010 
5015 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5112 
5115 
5117 
5120 
5130 
5140 
5145 
5150 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5275 
5300 
5310 


FOR Ii TO CE 


5 WAIT TM#2#RND(1) 

5 MUSIC 1,03,N3,0: PLAY 1,0,1,200 

1 PLOT X,Y,R2 

5 KeX+i 

NEXT I 

WAIT 200 

IF PE=0 AND CE=O THEN ZAP 

RETURN 

REM =. SP LECTURE DE LA COMBINAISON PROPOSEE 
PLOT XD,24,123 PLOT XD+1,24,"faites votre choix" 
PLOT 8,26,S8TR#(CP)3 PLOT 8,26," " 


IP=XD 

PLOT IP,26,04 PLOT IP+1,26,94 

FOR I=1 TO NP 

4 PLOT 12,26,STR$#(I1): PLOT 12,26," " 
4 X=2#I-11 IF CP>11 THEN X=X+19 

5 Y=24CP-1: IF CPoi1 THEN Y=Y-22 

t PLOT X-1,Y,7: PLOT X,Y,43 

1 CLePEEK(#208) 

1 IF Cl=#38 THEN 5090 

1 IF Cl=#84 THEN 5200 

4 IF CL<)#AF THEN 5120 

4 PLOT X-1,V," "sg PLOT IP,26," " 
1 GOTO 5040 

1 PLOT IP,26," " 

4 IP=IP-2#(CLa#AC)#(IP>XD)+2#(CLe#BC)#(IP<KXF) 
4 PLOT IP,26,01 PLOT IP+1,26,94 

1 NAIT 20 

: GOTO 5090 

#5 K=(IP-XD)/2+1 

1 PR(I)=Kk 

1 MUSIC 1,01,N1,01 PLAY 1,0,1,400 

1 CAsPis IC=K 

4 IF IC)>5 THEN IC=1C-5: CA=P2 

t PLOT X-1,Y,CO(IC)e PLOT X,Y,CA 

t NAIT 40 

NEXT I 

PLOT 1P,26," " 

PLOT 18,24," " 
RETURN 


8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8085 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 


REM ----- SP INITIALISATION D'UNE PARTIE ---------- 
CLS: PAPER 6: INK4 

PLOT 2,10,"COMBIEN DE POSITIONS (2 À 6)?" 

GET R$: NP=VAL(R$): IF NP<2 OR NP>6 THEN 8030 
PLOT 32,10,R$ 

PLOT 2,15,"COMBIEN DE COULEURS (2 À 9)?" 

GET R$: NC=VAL(R#)1 IF NC<2 OR NC>10 THEN 8060 
PLOT 32,15,R# 

MAIT 3001 CLS: PAPER PAi INK IN 

XF=XD+2# (NC-1) 

ID=XD1 CA=PI 

FOR I=i TO NC 

à IC=lu IF IC>5 THEN IC=1C-5: CA=P2 

1 PLOT 1D,25,C0(IC) 

1 PLOT 1D+1,25,CA 

1 ID=1D+2 

NEXT I! 

FOR 120 TO 2 

1 PLOT 1,24+1,PB+16 

à PLOT 6,24+1,PC+16 

NEXT ! 

PLOT XD-1,25,16 

PLOT 2,25,STR$ (NP): PLOT 2,25," "2 PLOT 4,25,"P" 
PLOT 2,26,STR#(NC): PLOT 2,26," "1 PLOT 4,26,"C" 
PLOT 7,25,"COUP POSIT" 

FOR I=1 TO NP 

à TICI)=INT (RND(1)#NC+1) 


NEXT I 

RETURN 

REM ----- SP INITIALISATIONS DU JEU --------------- 
PA=QO: INz41 PB=3r PC=6 


DIM CO(S), TI(9),PR(9),TP(9) 
NX=221 TM=1001 XD=19 

Oim=3s Nimis O2=31 N2281 O3=41 N3=1 
POKE #26A,10 

DATA 1,3,3,7,4 

FOR I=1 TO 51 READ CO(I)a NEXT I 
Pimb4y P221231 Ri=951 R2296 

DATA 12,30,63,63,63,63,30,12 
C=Pir GOSUB 9500 

DATA 12,30,51,51,51,51,30,12 
C=P21 GOSUB 9500 

DATA 0,0,12,18,18,12,0,0 

CsRis GOBUB 9500 

DATA 0,0,12,30,30,12,0,0 

C=R21 GOSUB 9500 

RETURN 
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9500 REM ----- SP INIT CARAC GRAPHIQUES ----"""""" 
9510 AM=46080+8+#C 

9520 FOR I=0 TO 7 

9530 : READ XX: POKE AM+I,XX 

9540 NEXT 1! 

9550 RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier les couleurs des pions 

Remplacez les cinq nombres de l'instruction 9060 par cinq valeurs de votre 
choix. Veillez à ce qu'elles soient toutes différentes: 

Par exemple: 


9060 DATA 7,1,2,4,5 


vous fournira, dans cet ordre, les couleurs : blanc, rouge, vert, bleu et violet. 


2. Pour modifier les sons 


Remplacez les valeurs de l'instruction 9040 par des nombres de votre 
choix, sachant que O1, O2 et O3 correspondent à des numéros d'octave 
(donc de O à 6) et N1, N2, N3 à des numéros de note (donc de 1 à 12). 
D'autre part: 


O1,N1 correspondent à la note émise lors de la sélection d'une couleur. 
O2,N2 correspondent à la note émise pour chaque ‘bonne position”. 
O3,N3 correspondent à la note émise pour chaque ‘bonne couleur‘. 


3. Pour avoir un moyen de connaître la combinaison secrète, sans 
devoir finir la partie 


Ajoutez la ligne. 


5111 IF CL= # AD THEN CP=NX :RETURN 


78 


et complétez 210 comme ceci: 


210 GOSUB 5000: IF CP > =NX THEN 230 


Il suffira alors que vous pressiez la touche ” DEL" pendant la phase de 
sélection des couleurs pour que la partie se termine en faisant apparaître la 
combinaison cachée. Notez bien qu'il ne vous sera plus possible de pour- 
suivre cette partie ainsi interrompue. 


4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Configuration clavier/écran. 


b) Le programme principal (100-299) 


150 appelle le sous programme dl'initialisation du jeu. 

160 et 270 répètent les instructions 170 à 240 (déroulement d'une partie) 
jusqu'à ce que vous disiez que vous ne souhaitez plus rejouer: 
170 appelle le sous-programme d'initialisation d'une partie. 

180 initialise le compteur de coups joués. 


190 et 230 répètent les instructions 200 à 220 (jeu d'un coup) 
jusqu'à ce que vous ayez gagné ou que le nombre de coups joués 
atteigne 22: 


200 incrémente le compteur de coups. 


210 appelle le sous-programme qui “lit” la combinaison que vous 
proposez. 


220 appelle le sous-programme qui analyse cette proposition. 


240 appelle, suivant le cas, le sous-programme “gagné” ou le sous- 
programme ‘perdu. 


250-260 vous demandent si vous voulez rejouer. 
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c) Le sous-programme d'initialisation du jeu (9000-9170) 


9010 fixe les diverses couleurs intervenant dans le programme. 
9020 réserve les tableaux. 


9030-9040 fixent le nombre maximum de coups, les sons employés au 
cours de la partie. (voir variables). 


9050 supprime le bip du clavier et le curseur d'écran. 


9060-9070 détermine (à partir du DATA 9060) les cinq couleurs servant à 
représenter les pions. Notez qu'on obtiendra 9 ‘’ couleurs” effectives 
en utilisant deux formes de pions. 


9080-9160 fabriquent les caractères graphiques: pion plein, pion cerclé, 
petit pion cerclé, petit pion plein. 


d) Le sous-programme d'initialisation d'une partie (8000-8270) 


8010-8080 vous font choisir le nombre de positions et le nombre de 
couleurs (le dialogue se fait en bleu sur fond cyan). 


8085-8150 dessinent, en bas à droite, les différents pions correspondants 
au nombre de couleurs choisies. 


8160-8190 fixent les couleurs de fond des trois lignes du bas de l'écran. 


8200-8230 affichent en bas d'écran, le nombre de positions et le nombre 
de couleurs. 


8240-8260 tire au hasard la combinaison qu'il vous faudra deviner. Notez 
que chaque ‘couleur’ du jeu est représentée par un entier compris 
entre 1 et 9. 


e) Le sous programme de lecture de la combinaison proposée 
(5000-5310) 


5010-5030 affichent le message clignotant ‘faites votre choix”, le 
numéro du coup et affichent la flèche de sélection de couleurs en 
position initiale. 

5040 à 5270 lisent les couleurs proposées. Pour chaque couleur: 


5050-5080 affichent le numéro du pion que vous êtes en train de 
choisir et font apparaître “ +" à l'emplacement correspondant. 


5090-5260 examinent le clavier: 
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5110 détecte la frappe de la barre d'espace. 
5112 détecte la frappe de la touche “return”. 
5115-5117: cas où ‘’return” a été frappée. 


5120-5150: cas d'une touche autre que espace ou return (cas 
usuel) : on calcule la nouvelle position de la flèche de sélection et on 
l'affiche. 

5200-5260: cas ou espace a été frappé: on range le numéro de la 
couleur proposée dans le tableau PR ; on émet un son montrant que 
la proposition a été enregistrée et on affiche le pion ainsi choisi à 
l'emplacement correspondant. 


5275-5300 effacent la flèche et le message. 


f) Le sous-programme d'analyse de la combinaison proposée 
(4000-4320) 


4010 recopie dans le tableau de travail TP, la combinaison tirée par l'ordi- 
nateur. Celà permet d'effectuer certaines modifications dans TP (lors 
de l'analyse de la proposition) sans altérer le tableau TI. 


4020-4050 comptent le nombre (PE) de couleurs bien placées. 


4055-4100 comptent le nombre (CE) de couleurs présentes dans la combi- 
naison cachée, mais mal placées. Notez bien qu'il a fallu éviter de 
prendre en considération les couleurs déjà comptées dans PE. 


4110-4180 affichent, s'il y a lieu, en musique un nombre de petits pions 
cerclés égal au nombre de couleurs à leur place. 


4200-4260 affichent, s'il y a lieu, en musique, un nombre de pions 
blancs égal au nombre de bonnes couleurs mal placées. 


4310 émet un ‘’zap"” si vous n'avez aucune bonne couleur dans votre 
proposition. 
g) Le sous-programme ‘gagné’ (2000-2070) 


Il affiche, en bas, à droite le message ‘vous avez trouvé en” suivi du 
nombre de coups. 


h) Le sous-programme ‘’ perdu" (3000-3120) 


Après effacement de la partie appropriée de l'écran, il vous affiche la 
combinaison choisie. 
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5. Liste des variables 


PA 
IN 

PB 
PC 


CO(5) 


TI(9) 
PR(9) 
TP(9) 
NX 
TM 


XD 


0O1,N1 


O2,N2 


O3,N3 


P1 
p2 
R1 


R2 
NP 
NC 
XF 


ID,IP 
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couleur du fond (ici noir). 
couleur d'encre utilisée pour les trois lignes inférieures. 
couleur de fond de la partie gauche des trois lignes inférieures. 


couleur de fond des trois lignes inférieures (à l'exception de la 
partie gauche). 


tableau contenant les couleurs utilisées pour les pions (on obtient 
jusqu'à 9 ‘couleurs’ en jouant sur l'aspect des pions). 


tableau contenant la combinaison tirée par le programme. 
tableau contenant la proposition du joueur. 

tableau de travail employé dans l'analyse de la proposition. 
nombre maximum de coups. 


temps d'attente maximum utilisé lors de la réponse du programme 
à une proposition. 


abscisse de début de l'emplacement où s'affichent les couleurs 
possibles (en bas à droite). 


note (octave + numéro dans l'octave) de la note jouée lorsque 
vous sélectionnez une couleur. 


note (octave + numéro dans l'octave) de la note jouée en 
accompagnement de chaque petit pion noir cerclé de blanc. 


note (octave + numéro dans l'octave) de la note jouée en 
accompagnement de chaque petit pion blanc. 


code ASCII du caractère représentant un pion “plein”. 
code ASCII du caractère représentant un pion ‘’cerclé”. 


code ASCII du caractère représentant un petit pion noir cerclé de 
blanc. 


code ASCII du caractère représentant un petit pion blanc. 
nombre de positions choisies pour la partie en cours. 
nombre de couleurs choisies pour la partie en cours. 


abscisse de fin de la zone servant à afficher les différentes couleurs 
en vue de leur sélection. 


indices servant à décrire les positions des différentes couleur de la 
zone de sélection. 


CP 
X,Y 
K 
PE 


CE 


numéro du coup. 
coordonnées du pion courant (pion ‘’ordinaire”’ ou petit pion). 
numéro de la couleur sélectionnée. 


nombre de couleurs bien placées dans la proposition courante 
(tableau PR). 


nombre de bonnes couleurs, mal placées, dans la proposition 
courante (tableau PR). 


Variables auxiliaires 


C R$ 


| CA IC 
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11 


Gobe mouches 


1. Le jeu 


Imaginez que vous soyez une petite araignée obligée de chasser les 
mouches pour se nourrir. 


Heureusement celles-ci pullulent dans votre environnement et vous n'avez 
que l'embarras du choix. Toutefois vous ne pouvez vous déplacer que le 
long d'un fil (de votre toile). 


Vous vous déplacez le long du bas de l'écran grâce aux touches fléchées: 


"+" et" vous font avancer à vitesse lente dans la direction indiquée. 


{et } ‘vous font avancer, dans les mêmes directions, à une vitesse triple de 
la précédente. 


Pour avaler une mouche, il vous suffit de l'intercepter dans son vol (qui se 
déroule toujours verticalement). Chaque mouche rapporte un nombre de 
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points qui dépend de sa couleur (rouge 1 ; vert 2 ; jaune 3: bleu 4; violet 5: 
bleu ciel 6; blanc 7). 


La partie s'achève au bout d'un temps déterminé à l'avance. Bonne chance 
et. bon appétit. 


mm PAR 





Vue de l'écran pendant le déroulement du programme 


2 Le Programme 


100 REM *#x#x##kxkx GOBE MOUCHES ##4 #44 UE UN NE 
110 GOSUB 9000 

120 REPEAT 

130 : GOSUB 8000 


135 : FOR T=i TO TM 

140 3 Xi=1+37*RND(1): K2=1+37#RND(1) 

150 : IM=1+RND(1)#7 

160 : IF SCRN(X,25)€)32 THEN SHOOT: GC=6C+SCRN(0,25) 


170 3 IF SCRN(X+1,29)<>32 THEN SHOOT: SC=S6C+SCRN(0,25) 
172 : C=PEEK(#208): IF C=#38 THEN 180 
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5  X=X-(C=#AC)#(KX>2) +(C=#BC)#(X<37)-3#(C=#B4)#(X>4)+3#(Cz#9C) #( 


15 PRINT CHR$(11); 

t  PLOT 0,26,F$ 

#5  PLOT 0,26,IN: PLOT X,26,6$ 

4 PLOT 0,1,1M: PLOT K1,1,MO0r PLOT X2,1,M0 

#5 NEXT 

5 CLS: PLOT 5,10,"SC0ORE": PLOT 15,10,STR$#(5C): PLOT 15,10," " 
s PLOT 5,12,"M-SCORE"1 PLOT 15,12,STR$ (MS): PLOT 15,12," " 

4 IF GC>MS THEN M6=6C 

4 WAIT 100: PLOT 5,20,"voulez vous rejouer (O/N)" 

GET R$: GET R$ 


UNTIL R$<>"0" 
END 

REM ----- SP INITIALISATION D'UNE PARTIE ---------- 
CLS: 6C=0 

X=15: PLOT X,26,C$ 

RETURN 

REM ----- SP INITIALISATIONS DU JEU -------------- 
PA=0: IN=3: PAPER PAs INK IN 


MO=94: Gi=95: G2296: F=64 
G$=CHR$ (61) +CHR$ (62) 

TM=400: MS=0 

POKE #26A,10 

DATA 17,10,4,31,4,10,17,17 

C=MO: GOSUB 9500 

DATA 48,8,7,3,15,19,36,8 

C=61: GOSUB 9500 

DATA 3,4,56,48,60,50,9,4 

C=62: GOSUB 9500 

DATA 0,0,0,0,63,0,0,0 

C=F: GOSUB 9500 

F$=""s FOR lei TO 381 F#=F#4+CHRS#(F)e NEXT I 
RETURN 

REM ----- SP CREATION CARACT GRAPHIQUES ----------" 
AM=46080+B4C 

FOR I=0 TO 7 

1 READ XX: POKE AM+I,XX 

NEXT ! 

RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier la couleur de l'araignée et de son fil 


Remplacez la valeur 3 de l'instruction 9010 par un nombre de votre choix, 
compris entre 1 et 7. 


2. Pour que toutes les mouches aient la même couleur 


Remplacez l'instruction 150 par: 

150 IM=n 
où n désigne un nombre compris entre 1 et 7. 
Par exemple: 


150 IM=5 


produira des mouches violettes. 


REMARQUE: dans ce cas (toutes les mouches de la même couleur), chaque 
mouche mangée rapportera alors le même nombre de points. 


3. Pour modifier la durée d'une partie 

Remplacez, en 9030, la valeur 400 par la valeur de votre choix. 

4. Pour que toutes les mouches rapportent le même nombre de 
points 


Modifiez ainsi les instructions 160 et 170. 


160 IF SCRN(X,25) <> 32 THEN SHOOT: SC=SC+1 
170 IF SCRN(X+1,25) <> 32 THEN SHOOT: SC=SC+1 
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4. Description du programme 


a) 


b) 


Techniques utilisées, décrites en annexe 


Hasard. 

Création de caractères graphiques. 
Lecture rapide du clavier. 

Scroll. 

Configuration clavier/écran. 


Le programme principal 


110 appelle le sous-programme d'initialisation du jeu. 


120 et 300 répètent les instructions 130 et 290 (déroulement d'une partie) 


jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer: 
130 appelle le sous-programme d'initialisation d'une partie. 
135 et 230 répètent 400 fois les instructions 140 à 200: 


140 et 150 calculent les positions de deux nouvelles mouches ainsi 
que leur couleur. 


160 et 170 examinent si l'’araignée rencontre une mouche et, le cas 
échéant, augmentent le score du nombre de points correspondants. 


172-175 déterminent la nouvelle position de l'araignée lorsqu'une 
des touches a été pressée. 


180 fait défiler vers le bas l'ensemble de l'écran (scroll). 
190-200 dessinent le fil et l'araignée dans sa nouvelle position. 


250-270 affichent votre score, le meilleur score et actualisent ce 
dernier. 


280-280 vous demandent si vous désirez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9140) 


9010 fixe les couleurs d'encre et de fond. 


9015 fixe les codes des caractères représentant les mouches, l'araignée et 


le fil. 


9020 fabrique la chaîne de deux caractères représentant l'araignée. 


9030 fixe le temps d'une partie et initialise le meilleur score. 
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9040 supprime le bip du clavier et le curseur d'écran. 


9050-9100 fabriquent les caractères graphiques servant à représenter les 
mouches, l'araignée et son fil. 


d) Le sous-programme d'initialisation d'une partie (8000-8030) 


8010 efface l'écran et initialise le score. 


8020 dessine l'araignée dans sa position initiale. 


5. Liste des variables 


PA 
IN 
MO 
G1 


G2 
F 
G$ 
F$ 
TM 
MS 
SC 
T 

X 
X1,X2 
IM 


couleur du fond (ici: noir). 

couleur d'encre utilisée pour l'araignée et son fil. 

code ASCII du caractère utilisé pour représenter une mouche. 
code ASCII du caractère représentant la partie gauche de 
l'araignée. 

code ASCII du caractère représentant la partie droite de l'araignée. 
code ASCII du caractère utilisé pour représenter le fil. 

chaîne de deux caractères représentant l'araignée. 

chaîne de 38 caractères représentant le fil. 

durée d'une partie (exprimée en nombre de tours de boucles). 
meilleur score. 

score. 

compteur de tours de boucle. 

position de l'araignée sur son fil. 

positions des deux dernières mouches {tirées au hasard). 
couleur d'encre des deux dernières mouches (tirée au hasard). 


Variables auxiliaires 


C SC R$ 1! (dans le sous-programme 9500). 
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12 
KARTING 


1. Le jeu 


La piste est là, devant vos yeux, avec ses bottes de paille qui en délimitent 
le tracé. Votre bolide ne tarde pas à se présenter, moteur tournant au 
ralenti. Il vous suffit d'y monter et d'essayer de le conduire sur le plus grand 
nombre possible de kilomètres et aussi vite que vous le pouvez. 


Le bolide apparaît en haut à gauche de l'écran. Le programme vous 
demande de signaler que vous êtes prêt en tapant sur une touche quel- 
conque. Votre voiture se met alors en marche, à petite vitesse. A partir de 
cet instant, vous ne pourrez plus l'arrêter et la partie se terminera inexora- 
blement.… dans le décor. 


Vous dirigez votre bolide à l'aide des quatre touches fléchées (ou, le cas 
échéant, avec une poignée de jeu). Vous accélérez à l'aide de la touche 
“return” et vous freinez avec la barre d'espace. Le bruit du moteur vous 
renseignera sur votre vitesse. 
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A la 


fin de la partie (c'est-à-dire quand vous avez quitté la piste), le 


programme vous indique la distance parcourue et votre temps de parcours. 
Votre score est alors calculé en fonction de ces deux éléments (il est 
proportionnel à la distance et à la vitesse moyenne). Vous pouvez le 


com 


parer avec le meilleur score déjà réalisé. (Voir photo 4 hors-texte : Vue 


de l'écran pendant le déroulement du jeu). 


2. Le programme 


100 
110 
120 
130 
140 
150 
160 
170 
EN D 
180 
190 
200 
210 
220 
230 
240 


REM HUE KARTING HAE UEUEUEUEUEUE NE NEED DE DE DE DE NEED 
GOSUB 8500: GOSUB 9000 

REPEAT 

: GOSUB 8000 

1 IF PEEK(768)=176 THEN 180 

1 DN=PEEK(735)-135 

1 IF DNe6 OR DN=25 THEN GOSUB 5000 

4 IF DNÇI OR DN>4 DR(DN-DL=1 AND DN<>3)0OR(DL-DNz1 AND DL<>3) TH 
N=DL 

5 XN=X+(DN=1)-(DN=2)5 YN=Y+(DN=4)-(DNz=3) 

1 IF SCRNIXN,YNI<>32 THEN GOSUB 30001 GOTO 240 

à PLOT K,V,323 K=XNe Y=YNs DLeDNse PLOT X,Y,CV(DL) 
1 KMeKM+l1 TaT+4-V 

4 IF V<3 THEN MAIT 3: IF V<2 THEN WAIT 7 

: GOTO 140 

1 PLOT 19,25,"rejouez vous (O/N)" 

1 GET R$1 GET R$ 

UNTIL R$<>"Q" 


END 

REM ---- GP SORTIE DE PIBSTE -------------------- 
EXPLODE 

PLOT 1,24,"KM"s PLOT 3,24,STR$#(INT(KM))s PLOT 3,24," " 
PLOT 10,24,"TEMPS":PLOT 15,24,STR$(INT(T))s PLOT 15,24," " 
SC=INT(KMX#KM/T) 

PLOT 1,25,"SCORE": PLOT 10,25,12 

PLOT 11,25,STR$(SC): PLOT 11,25," " 

PLOT 1,26,"M-SCORE": PLOT 11,26,STR$(MS): PLOT 11,26," " 
WAIT 300 

IF SC>MS THEN M6=6C 

PLOT X,Y,32 

RETURN 
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5000 REM ---- 6P CHANGEMENT DE VITESSE ----------- 
5010 V=V+(DN=b)#(V<3)-(DN=25)#(V>1) 

5020 GOSUB 6000 

5030 RETURN 

6000 REM ---- 6P SONORISATION -------—mmmmu— 
6010 F=10+40#(3-V) 

6015 PLAY 0,1,3,F 

6020 SOUND 4,30,0 

6030 RETURN 

8000 REM ---- GP INITIALISATION D'UNE PARTIE --------- 
8010 KM=0: Tz=0 

8020 K=25 Y=21 DN=21 DLeDNs Vai 

8030 PLOT X,Y,CV(2): PING: GOSUB 6000 

8035 FOR 1=0 TO 2e PLOT 1,24+I1,BL#: NEXT I 

8040 PLOT 2,25,"pour commencer tapez sur une touche" 
8050 GET R$: PLOT 1,25,BL$ 

8070 RETURN 


8500 REM ---- GP TRACE DE LA PISTE ------------------- 
8510 DATA "aaaaaaaaaaaaaaaaaañaaaañaaaaaaaaaaèaaèa" 
8520 DATA "à à" 
8530 DATA "à à" 
8540 DATA "à à" 
8550 DATA "a à à à à à à à à à à à à à à à à à à À à à à à à à à à à" 
8560 DATA "à à aàaà à à" 
8570 DATA "à à àà à à" 
8580 DATA "à à à à a" 
8590 DATA "à à ààà à àdaaàà à à" 
8600 DATA "à à  aaääa à à à à à à à à à Ci 
8610 DATA "à à aaaaà à à à à à à à à à à" 
8620 DATA "à à aàääaaà à àààaaaà à à" 
8630 DATA "à à ääaà à àäaaaààà à a" 
8640 DATA "à à aà à aaà à à" 
8650 DATA "à à à à àà à à" 
8660 DATA "à à à àà à à à" 
8670 DATA "à à à aàaà à à à" 
8680 DATA "à à à ààaààà à à à" 
8690 DATA "à à à  aaaaaaaa à à à" 
8700 DATA "à à à à à à à à à à à à a" 
8710 DATA "à à à à" 
8720 DATA "à à à aa" 
8730 DATA "à à à àäaà" 
8740 DATA "aaaañaaaaaaaaaaaaañaäaèaaèaaèäaaaaaaaa" 
8750 CLS 


8800 FOR I=0 TO 23 
8810 : READ CH#: PLOT 1,1,CH$ 
8820 NEXT I 
8830 RETURN 
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9000 REM ---- GP INITIALISATION DU JEU ------"--"-"-""-"" 
9010 PA=3: IN=1: PAPER PA: INK IN 

9020 MS=0 

9040 BL$=""1 FOR Imi TO 374 BL#=BL$+" "1 NEXT I 
9050 DIM CV(4) 

9060 CP=b4r CV(1)=93s CV(2)=944 CV(3)=95: CV(4)=96 
9070 DATA 0,0,30,30,30,30,0,0 

9080 C=CP: GOSUB 9500 

9090 DATA 0,0,17,63,63,63,17,0 

9100 C=CV(1)1 GOSUB 9500 

9105 DATA 0,0,34,63,63,63,34,0 

9110 C=CV(2): GOSUB 9500 

9115 DATA 0,15,06,06,06,15,06,0 

9120 C=CV(3)1 GOSUB 9500 

9122 DATA 0,06,15,06,06,06,15,0 

9125 C=CV(4): GOSUB 9500 

9130 POKE #264,10 

9150 RETURN 

9500 REM ---- GP INIT CARACTERES GRAPHIQUES ---------- 
9510 AD=46080+B4#C 

9520 FOR I=0 TO 7 

9530 1 READ XX: POKE AD+I,XX 

9540 NEXT I 

9550 RETURN 


REMARQUE: les caractères ‘à’ de la liste correspondent en fait au carac- 
tère @ (c'est ainsi qu'il apparaît sur le clavier et à l'écran). 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier la couleur du fond (ici jaune) 

Remplacez, en 9010, la valeur 3 par un nombre de votre choix (entre O et 

7). 

2. Pour modifier la couleur des ‘bottes de paille'” et de la voiture 
(ici rouges) 


Remplacez, en 9010, la valeur 1 par un nombre de votre choix (entre O et 
7). 
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3. Pour modifier le tracé de la piste 


I! vous suffit de modifier les instructions DATA” des lignes 8510 à 8740 
en tenant compte des remarques suivantes: 


e Chacune de ces 24 instructions représente une ligne de la piste. 


e Chaque instruction contient une chaîne d'au maximum 38 caractères et 
formée uniquement de caractères ‘espace et‘ @ ‘’. Les espaces maté- 
rialisent la piste tandis que ” @ ‘’ correspond aux ‘bottes de paille”. 


e |l est absolument indispensable que la piste soit toujours bordée de 
 @ ”. En effet, pour obtenir la vitesse maximum, le programme ne teste 
pas les ‘débordements” d'écran; il se contente de vérifier s’il y a ou non 
collision avec une botte de paille. Dans ces conditions, l'absence de 
” @" en bord d'écran pourrait entraîner un mauvais fonctionnement du 
programme. 


4. Si le jeu vous paraît trop rapide 


Vous pouvez réduire les vitesses 1 et 2, en modifiant la ligne 220. Il vous 
suffit de savoir qu'actuellement : 


— la vitesse 1 correspond à une attente (instruction WAIT) de 10 (3 de 
WAIT 3 + 7 de WAIÏT 7). 


— la vitesse 2 correspond à une attente de 3. 
Ainsi, en remplaçant 220 par: 

220 IF V<3 THEN WAITS:IF V<2 THEN WAIÏT 10 
vous obtiendrez: 
— une attente de 15 (5 + 10) pour la vitesse 1. 


— une attente de 5 pour la vitesse 2. 


5. Pour utiliser une poignée de jeu 


Chargez le programme  MANETTE2”" comme décrit en annexe. Branchez 
la poignée du côté droit. Remplacez les instructions 140 à 180 par: 


150 : DN=PEEK(#400): IF DN=0 THEN DN=DL 
160 XN=zX+((DN AND 1)=1)-((DN AND 2)=2) 
170 YN=Y-C(DN AND 4)=4)+((DN AND B)=8) 
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(attention, les lignes 140 et 180 disparaissent). 


Enfin, remplacez les lignes 9050 à 9125 par: 


9050 DIM CV(10) 

9060 CP=b4r CV(1)=931 CV(2)=94r CV(S)=01 CV(4)=951 CV(5)296 
9065 CV(6)=971 CV(7)m01 CV(B)m9B1 CV(9)m991 CV(10)M=100 
9070 DATA 0,0,30,30,30,30,0,0 
9080 C=CP1 GOSUB 9500 

9090 DATA 0,0,17,63,63,63,17,0 
9100 C=CV(1): GOSUB 9500 

9105 DATA 0,0,34,63,63,63,34,0 
9110 C=CV(2): GOSUB 9500 

9115 DATA 0,15,6,6,6,15,6,0 
9117 C=CV(4)1 GOSUB 9500 

9118 DATA 0,4,6,4,7,28,56,20,0 
9119 C=CV(S)1 GOSUB 9500 

9120 DATA 0,8,24,61,14,7,10,0 
9121 C=CV(6)1 GOSUB 9500 

9122 DATA 0,6,15,6,6,6,15,0 
9123 C=CV(8)1 GOSUB 9500 

9124 DATA 0,20,56,28,47,6,4,0 
9125 C=CV(9): GOBUB 9500 

9126 DATA 0,10,7,14,61,24,8,0 
9127 C=CV(10)1 GOSUB 9500 


4. Description du programme 


a) Techniques utilisées décrites en annexes 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Configuration clavier/écran. 

— Poignées de jeu (facultatif). 


b) Le programme principal 


110 appelle les sous-programmes d'initialisation du jeu et de dessin de la 
piste. 
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120 et 250 répètent les instructions 130 à 245 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer: 
130 appelle le sous-programme d'initialisation d'une partie. 
140-230 sont répétées jusqu'à ce que la voiture quitte la piste: 

140-150 examinent le clavier. 


160 appelle le sous-programme de changement de vitesse lorsque 
l'une des touches “return” ou ‘’espace” a été pressée. 


170 détermine le nouveau déplacement DN de la voiture, en tenant 
compte de son sens de marche et éventuellement de la touche 
pressée (flèche). Notez que les demi-tours sont interdits. 


180 détermine la nouvelle position de la voiture. 


190 examine si la voiture sort de la piste. Dans ce cas, le sous- 
programme de sortie de piste est appelé et la partie est 
interrompue. 


200 efface la voiture de sa position actuelle et la dessine dans sa 
nouvelle position, en tenant compte de son sens de marche. 


210 actualise le temps et le kilométrage. 
220 réalise une attente fonction de la vitesse de la voiture. 
240-245 vous demandent si vous souhaitez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9150) 


9010 fixent les couleurs du fond et de l'encre. 
9020 initialise le meilleur score. 
9040 prépare une chaîne de 37 caractères blancs. 


9050-9125 fabriquent les caractères graphiques représentant les “bottes 
de paille” et la voiture dans chacune de ses quatre directions de 
déplacement. 


9130-9140 suppriment le bip et le curseur et effacent l'écran. 


d) Le sous-programme de tracé de la piste (8500-8830) 
8800-8820 dessinent la piste en utilisant les instructions DATA 8510 à 


8740. Notez que chaque caractère ‘ @ ” correspond, en fait, à une 
botte de paille. 
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5. Mur de briques 


6. Embarquement immédiat 








7. Envahisseurs 


F-SCÛORE 
(o] 





8. Dictée musicale 


e) Le sous-programme d'initialisation d’une partie 


8010 initialise les compteurs “temps” et ‘kilomètres’. 


8020 fixe la position initiale de la voiture, son sens de déplacement et sa 
vitesse. 


8030 dessine la voiture dans sa position initiale et fait entendre le bruit de 
son moteur. 


8035-8050 attendent que vous tapiez sur une touche. 


f) Les sous-programmes de changement de vitesse (5000-5030) et 
de sonorisation (6000-6030) 


5010 calcule la nouvelle vitesse de la voiture. 
5020 appelle le sous-programme de sonorisation. 
6010 calcule la fréquence du son correspondant à la vitesse de la voiture. 


6015-6020 émettent le bruit correspondant. 


g) Le sous-programme de sortie de piste (3000-3090) 


3010 fait retentir une explosion. 
3020-3030 affichent la distance parcourue et le temps. 


3040-3075 calculent le score correspondant, l'affichent et actualisent le 
nouveau score. 


3080 efface la voiture. 


5. Liste des variables 


PA couleur du fond. 

IN couleur d'encre utilisée pour les ‘bottes de paille” et pour la 
voiture. 

MS meilleur score. 

BL$ chaîne de 37 ‘blancs’ utilisée pour effacer des messages sur 
l'écran. 
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CP 


CV(4) 


KM 
T 

X,Y 
DN 


DL 

V 
XN,YN 
SC 

F 


code ASCII du caractère représentant les bottes de paille délimi- 
tant la piste. 


tableau contenant les quatre codes ASCII des quatre caractères 
représentant la voiture dans chacune des quatre directions. 


distance parcourue. 

durée du parcours. 

coordonnées de la voiture. 

code du déplacement à venir de la voiture 

(1: 2: 3:};: 4:f). 

code de l’ancien déplacement de la voiture (voir DN). 
code de la vitesse de la voiture (1: lent à 3: rapide). 
coordonnées de la prochaine position de la voiture. 
score. 

fréquence du son utilisé pour simuler le bruit du moteur. 


Variables auxiliaires 


Cul 
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CH$ R$ 


13 
Tir aux ballons 


1. Le jeu 


Venez pour un moment vous distraire à la fête foraine en montrant vos 
talents de tireur. Une myriade de ballons multicolores s'élève devant vos 
yeux. Crevez-en le plus possible avec votre sarbacane. 


La sarbacane apparaît sur le côté droit de l'écran et se déplace verticale- 
ment à l'aide des deux touches ” ! ‘’ et ” | ”. Vous tirez une flèche en 
appuyant sur la barre d'espace. Tant qu'elle n'a pas traversé l'écran ou 
crevé un ballon, vous ne pouvez pas en tirer une nouvelle. 


Trois niveaux de jeu vous sont proposés : 
e Niveau 1 : Tous les ballons rapportent le même nombre de points (10). 


99 


e Niveau 2 : Le nombre de points dépend de la couleur du ballon : 10 pour 
un rouge, 20 pour un vert, …, 60 pour un cyan (bleu ciel). Ce 
nombre apparaît sur la gauche du ballon. 


e Niveau 3:Les ballons deviennent capricieux: lorsqu'ils sont touchés 
pour la première fois, ils se contentent de diminuer de taille. 
Il vous faut les toucher une seconde fois pour les faire dispa- 
raître et marquer les points correspondants. 


La partie dure un temps déterminé à l'avance. Le programme affiche en 
permanence, en haut de l'écran, votre score et le meilleur score du niveau 
auquel vous jouez. 


(NE EURO P4 





Vue de l'écran pendant le déroulement du jeu 
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2. Le programme 


REM ###4##HNRUNUNERX TIR AUX BALLONS 4446464646 466 de 46 He DE O6 HE DE EE GE 
GOSUB 9000 

REPEAT 

: GOSUB 8000 

5 FOR Tæi TO TM 

:  GOSUB 3000: GOSUB 4000: GOSUB 3000: GOSUB 5000 
1  GOSUB 3000: GOSUB 4000: GOSUB 3000 

4 NEXT T 

4 IF SC>MS(NV) THEN MS (NV)=6C 

5 WAIT 100 

t CLS: PLOT 6,15,"voulez vous rejouer (O/N)" 

1 GET R$1 GET R$ 

UNTIL R$<>"0" 


END 
REM ---- GP DEPLACEMENT FLECHE === 

IF XB=0 THEN RETURN 

IF SCRN(XB-2,YB)<>32 THEN 3100 

PLOT XB,YB,321 XB=XB-2:1F XBCX1 THEN XB=0 ELSE PLOT XB,YB,CC 
RETURN 

SHOOT: PLOT XB,YB,32 

IF SCRN(XB-2,YB)=C1 AND NV=3 THEN PLOT XB-2,YB,C2t XB=0: RETURN 
PLOT XB-2,YB,32:8C=8C+104SCRN(XB-3, VB) 
CH$=STR$ (SC): ID=17: GOSUB8500: XB=0: RETURN 

REM ---- GP DEPLACEMENT SARBACANE ET TIR --------" 
CL=PEEK(#208) IF CL=#38 THEN RETURN 

IF CL=#84 AND XB=0 THEN XB=XF-1: VB=YF: PLOT XB,YB,CB: RETURN 
PLOT XF,VF,CE$r VF=VF+(CLe#B4)#(VF<24)-(CLe#9C)#(YF>0) 

PLOT XF,YF,CF$: RETURN 

RETURN 

REM ---- GP DEPLACEMENT BALLON ===" 

IF RND(1)3FB THEN 5100 

K=H(K) IB=H(K+1)r K=K+2: IF KONXTHEN Kai 

IF NV=1 THEN PTm10 ELSE PTa10+#IB 

PLOT 3,26,8TR$(PT)a CH$=CHRS (IB)+CHR# (C1) +CHRS# (IN) 

PLOT X,26,CH$ 

PLOT XF,YF,CE$r IF XBC)O THEN PLOT XB,YB,32 

PRINT CHR$#(10);a PLOT XF,VF,CF#: IF XB=0 THEN RETURN 

IF SCRN(XB,YB)C>32 THEN XB=0 ELSE PLOT XB,YB,CC 

RETURN 
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REM ---- 6P INITIALISATION D'UNE PARTIE ---------- 
CLS: PLOT 10,10,"TIR AUX BALLONS" 

PLOT 10,15,"niveau choisi (1 a 3)?" 

GET R$i NV=VAL(R$#)1 IF NVCI OR NV>3 THEN 8030 
CH$="NIVEAU SCORE M-SCORE "4 ID=25 GOSUB 8500 
CH$=STR$ (NV): ID=268: GOGSUB 8500 

CH$2STR$(MS(NV)): ID=31: GOSUB 8500 

SC=01 XB=0: YF=151 Kai 

CLS FOR Ii TO 26: PRINT: NEXT I 

RETURN 

REM ---- GP AFFICHAGE LIGNE SUPERIEURE ------------ 
FOR Ii TO LEN(CH#) 

4 POKE AD+ID+I-1,AS6C(MID$(CH$,1,1)) 

NEXT I! 

RETURN 

REM ---- GP INITIALISATIONS DU JEU -------------- 
X1=73 X2=25 

XF=33: LFabs XBm01 FBx0,21 TM=300 

C1=941 C2=951 CFa9b: CC=64 


DIM MS(3) 

IN23: PA=01 IG=2: P6zis INK IN: PAPER PA 
AD=#BB60 

CF$=""s FOR Is TO LFs CF#aCF$+CHRS$(CF)e NEXT I 


CE$=""; FOR I=i TO LF: CE#=CE$+" "3 NEXT I 
DATA 12,30,63,63,63,63,30,12 

C=Cir GOSUB 9500 

DATA 0,0,12,30,30,12,0,0 

C=C2: GOSUB 9500 

D'ATA 0,0,63,63,63,63,0,0 

C=CF: GOSUB 9500 

DATA 0,0,0,0,63,0,0,0 

C=CC: GOSUB 9500 

POKE AD,PS+16: POKE AD+1,18 

POKE #26A,10 

NX=100: DIM H(NK): Kai 
H(K)=X1+2#INT(RND(1)#(X2-X1) /2) 
IB=INT(RND(1)#6)s IF IB=PA THEN 9220 
H(K+1)=IB: K=kK+25 IF KÇNX THEN 9210 


RETURN 

REM ---- SP INITIALISATION CARAC GRAPHIQUES ------ 
AM246080+8#C 

FOR I=0 TO 7 

1 READ XX: POKE AM+I,XX 

NEXT I 

RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier la couleur de la sarbacane et de la flèche 


Remplacez en 9050, la valeur 3 par un nombre de votre choix (entre 1 et 
7). 


2. Pour modifier la durée d'une partie 


Remplacez en 9020, la valeur 300 par un nombre de votre choix (600 
donnera des parties deux fois plus longues, 100 donnera des parties trois 
fois plus courtes). 


3. Pour que les ballons soient plus ou moins nombreux 


Remplacez, en 9020, la valeur 0.2 par un nombre compris entre O et 1 
sachant que: 


0.2 correspond, en moyenne, à un ballon toutes les cinq lignes. 
0.5 à un ballon toutes les deux lignes. 


1 à un ballon sur chaque ligne. 


4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Scroll. 

— Configuration clavier/écran. 

— Écriture directe en mémoire d'écran. 
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b) Le programme principal (100-220) 


110 appelle le sous-programme d'initialisation du jeu. 


120 et 210 répètent les instructions 130 à 200 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer: 


130 appelle le sous-programme dl'initialisation d'une partie. 


140 et 170 répètent 300 fois les instructions 150 et 160 qui appel- 
lent les sous-programmes de déplacement de flèche (3000), de 
déplacement de l'ensemble des ballons (5000) et de déplacement 
de la sarbacane (4000). 


180-200 actualisent le meilleur score et, après un court instant, vous 
demandent si vous souhaitez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9550) 


9010 détermine le domaine dans lequel évoluent les ballons. 


9020 fixe la position initiale de la sarbacane, sa dimension, la fréquence 
d'apparition d'un ballon et la durée d'une partie. 


9030 fixe les codes des caractères représentant les ballons, la sarbacane et 
la flèche. 


9050 fixe la couleur de fond et celle de la sarbacane et de la flèche. 
9070 fixe l'adresse de début de la ligne supérieure. 


9080-9170 fabriquent les caractères graphiques servant à représenter les 
ballons , la sarbacane et la flèche. 


9180 fixe les couleurs de fond et d'encre de la ligne supérieure. 
9190 supprime le bip du clavier et le curseur de l'écran. 


9200-9230 préparent un tableau de valeurs tirées au hasard qui serviront 
à déterminer la position et la couleur de chaque ballon. 


d) Le sous-programme d'initialisation d'une partie (8000-8090) 


8010-8060 font choisir le niveau, affichent les textes de la ligne supé- 
rieure, le niveau et le meilleur score correspondant. 


8070 initialise le score, la position de la sarbacane. 


8080 initialise le défilement d'écran en plaçant le curseur en bas. 
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e) Le sous-programme de déplacement de la flèche (2990-3130) 


3000 examine si une flèche a été tirée (dans ce cas, XB contient une valeur 
positive). Si c'est le cas: 


3010 examine si la flèche peut être déplacée sans rencontrer un ballon. 
3020-3030 déplacent la flèche lorsque cela est possible. 


3100-3130 correspondent au cas où un ballon est touché: 


3100 fait entendre le bruit du ballon qui crève et efface la flèche de 
son ancienne position. 


3110 examine si l'on est en niveau 3. Dans ce cas, si le ballon est de 
taille normale, il est remplacé par un plus petit. 


3120-3130 effacent le ballon touché, incrémentent le score et affi- 
chent sa nouvelle valeur. 


f) Le sous-programme de déplacement des ballons (4990-5130) 


5000 décide de l'apparition éventuelle d'un nouveau ballon. Le cas 
échéant: 


5010-5050 dessinent le nouveau ballon et affichent le nombre de points 
correspondants. 


5100-5120 effacent la sarbacane et la flèche (si elle existe) avant d’effec- 
tuer un défilement de l'écran vers le haut (scroll), redessinent la 
sarbacane et, éventuellement, la flèche. 


g) Le sous-programme de déplacement de sarbacane et de tir 
(3990-4110) 


4000 examine le clavier. 


4010 place une flèche en position initiale si la barre d'espace a été pressée 
et si aucun tir n'est en cours. 


4020-4030 déplacent la sarbacane s'il y a lieu. 


h) Le sous-programme d'affichage en ligne supérieure (8490- 
8540) 


Il affiche en colonne de numéro ID, le contenu de la chaîne CH. 
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5. Liste des variables 


X1,X2 


XF,YF 
LF 
XB,YB 


TM 
FB 
C1 
C2 
CF 
CC 
MS(3) 
IN 
PA 
IS 
PS 
AD 
CF$ 
CES 
NX 


NV 
SC 


coordonnées de l'intervalle dans lequel pourront se trouver les 
ballons (ces valeurs doivent impérativement être impaires) 


coordonnées de l'extrémité gauche de la sarbacane 
longueur de la sarbacane 


coordonnées de la flèche. (Si XB = O, aucune flèche n'est présente 
sur l'écran) 


durée d'une partie (exprimée en nombre de tours de boucle) 
probabilité d'apparition d'un ballon sur une nouvelle ligne 

code ASCII du caractère représentant un ballon de taille normale 
code ASCII du caractère représentant un ballon de taille réduite 
code ASCII du caractère représentant la sarbacane 

code ASCII du caractère représentant la flèche 

tableau contenant le meilleur score de chaque niveau 

couleur d'encre employée pour la sarbacane et la flèche 
couleur de fond 

couleur d'encre employée pour la ligne supérieure 

couleur de fond de la ligne supérieure 

adresse mémoire relative au début de la ligne supérieure 
chaîne représentant la sarbacane 

chaîne de caractères blancs servant à effacer la sarbacane 
nombre de valeurs qui seront tirées au hasard avant le début du 
jeu 

pointeur dans le tableau H 

niveau de jeu 

score 


Variables auxiliaires 


C IB 
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R$ CL X IB l! 


14 
Mur de briques 


1. Le jeu 


C'est là un jeu très classique que vous avez certainement déjà rencontré. À 
l'intérieur d'un cadre (ici vert) se trouve un mur de briques (ici violettes). 
Une balle se promène sur l'écran rebondissant sur le cadre où sur une 
“raquette mobile”. Elle rebondit également sur les briques mais en les 
détruisant du même coup. 


Par rapport aux versions habituelles de ce jeu, nous avons introduit une 
nouveauté : la raquette peut se déplacer à la fois horizontalement et verti- 
calement (dans certaines limites). 


L'objectif est de détruire le maximum de briques dans un minimum de 
temps. Pouvoir rapprocher la raquette du mur vous fera üonc gagner du 
temps et par suite améliorer votre score. 
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Chaque balle ratée par la raquette est perdue. Vous disposez de six balles 
en tout. La raquette se déplace à l'aide des quatre touches fléchées ou, le 
cas échéant, de la poignée de jeu. 


Le programme affiche en permanence le nombre de balles restantes et le 
nombre de briques détruites. La partie s'achève, soit quand vous n'avez 
plus de balles, soit (ce qui est plus rare) quand le mur a été entièrement 
détruit. Le programme vous fait alors connaître votre score qui est calculé 
en fonction du nombre de briques détruites et du temps mis pour ÿ parve- 
nir. En même temps, vous pourrez comparer votre résultat avec le meilleur 
score déjà réalisé. (Voir photo 5 hors texte: Vue de l'écran pendant le 
déroulement du jeu). 


2. Le programme 


REMARQUE: L'instruction 4000 occupe deux lignes de listes. Le nombre 
4500 qui apparaît en dessous du numéro de ligne 4000 fait bien partie 
de la ligne 4000. 


100 REM **##x###4% CAGSE BRIQUES #4#4444444 4 
110 GOSUB 9000 

120 REPEAT 

130 1: GOSUB 8500: GOSUB 8000: GOSUB 7000 
140 : REPEAT 

150 : GOSUB 4000: GOSUB 3000: TæT+i 

160 3 UNTIL ND>=NB OR NC<=0 

170 : GOSUB 8700 

180 UNTIL R$<>"0" 

190 END 
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REM ---- 6P GONORISATION REBOND ---------------- 

F=100: IF CX=CM THEN F=500 

IF CXeCR THEN F=200 

PLAY 1,0,0,0: SOUND 1,F,6: WAIT 10 

PLAY 0,0,0,0: RETURN 

REM ---- SP DEPLACEMENT BALLE --------mmmm 

IF SCRN(X,Y+DY)<>320RSCRN(X+DX,Y)<>320RSCRN(X+DX,Y+DY) €>32THEN 


PLOT X,Y,328 X=X+DXa Y=eY+DY 

IF YSYR THEN PLOT X,Y,CB: RETURN 

NC=NC-1: PLOT 11,0,STR$# (NC) PLOT 11,0," " 
ZAP: WAIT 1001 GOSUB 7000: RETURN 
CI=SCRN(X,Y+DY)1 C2=GCRN(K+DX,Y)r CS=6CRN(K+DX,Y+DV) 
IF Ciz32 THEN 4100 

IF CiaCM THEN PLOT X,Y+DV,32: GOSUB 6000 
CX=C1i:1 GOBUB 30001 DY=-DY 

RETURN 

IF C2=32 THEN 4140 

IF C2=CM THEN PLOT X+DX,Y,32: GOSUB 6000 
CX=C2: GOSUB 30001 DX=-DX 

RETURN 

IF C3eCM THEN PLOT X+DX,Y+DY,32: GOSUB 6000 
CX=C3: GOSUB 3000: DX=-DX: DY=-DY 

IF RND(1)30.75 THEN DX=-DX 


RETURN 
REM ---- GP DEPLACEMENT RAQUETTE --------------- 
CL=PEEK(#208) 


1F CL=#38 THEN RETURN 

PLOT XR,VR,CES$ 

XR=XR+ (CLæ BC) # (XRCKM) - (CL=HAC) # (XRDK1) 

YR=YR+ (CLæ#B4) # (YRÇR2) + (CLæ#9C) #(VRORLI #(YRCDY+1) 
PLOT XR,YR,CR$: RETURN 

REM ---- GP BRIQUE DETRUITE ------""--"""""""- 
ND=ND+1 

PLOT 25,0,8TR$# (ND): PLOT 25,0," " 

RETURN 

REM ---- GP PLACEMENT HASARD BALLE -------"-""" 
IF NC(=0 THEN RETURN 

K=K1+INT(RND(1)#(X2-K1+1)) 

Yh=Y4+2 

PLOT X,Y,CB 

DX=i1 IF RND(1)0,S THEN DX=-1 

DY=is IF RND(1)0,5 THEN DY=-1 

PLOT XR,VR,CES$ 

KR=19-INT(LR/2)1 YR=R2 

PLOT XR,YR,CRS 

RETURN 
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8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8500 
8510 
8520 
8530 
8540 
8700 
8720 
8725 
8730 
8740 
8750 
8760 
8770 
8780 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9085 
9090 
9100 
9110 
9120 
9130 
9140 
9145 
9150 
9160 
9170 
9180 
9190 


110 


REM ---- GP DESSIN CADRE ET MUR ------"--""-"-"" 
FOR X=X1-1 TO X2+1 

t PLOT X,Y1-1,CTs PLOT X,Y2+1,CT 

NEXT X 

FOR Y=Yi TO Y2 

à PLOT X1-1,Y,CTs PLOT X2+1,Y,CT 

NEXT Y 

FOR X=X1 TO X2 

à FOR Y=V3 TO Y4 

1 PLOT X,Y,CM 


4 NEXT Y 

NEXT X 

RETURN 

REN are: BP INITIALISATION PARTIE "s=msmenassmsne 
CLS1 Tæ=0s ND=01 NC=NX 

PLOT 4,0,"BALLES BRIQUEGS" 

PLOT 11,0,STR$#(NC): PLOT 11,0," " 

RETURN 

REM ---- GP FIN DE PARTIE ----------------------- 
SC=100#NDxND/T#NX/(NX-NC) 

SC=INT(S8C) 

PLOT 5,12,"SCORE": PLOT 12,12,STR$(8C)u PLOT 12,12," " 


PLOT 5,14,"M-SCORE": PLOT 15,14,8TR#(MS)a PLOT 15,14," " 
IF SC>MS THEN MS=5C 

PLOT 5,17,"Voulez vous rejouer (0/N)" 

GET R$: GET R$ 


RETURN 
REM ---- GP INITIALISATIONS DU JEU ----------""- 
MB=01 NX=6 


POKE #26A,10 

PA=O3 IN=21 CLS: PAPER PAs INK IN 
Xi=2: X2=37 

Viz3s Y22251 Y3=91 Y4=9 

Rimi4: R2223: LR=9 

XM=X2-LR+1 

NBa(X2-K1+1)#(V4-Y3+1) 
XR=19-INT(LR/2)1 YR=R2 

CTab4:s CM=95+1281 CB=96: CR=160 


CE$=" " 

FOR Imi TO LR: CE$=CE$+" "s NEXT I 
CR$=" " 

FOR Ii TO LR: CR$=CR$+CHRS$ (CR): NEXT I 


DATA 63,63,41,33,33,41,63,63 
CX=CT: GOSUB 9500 

DATA 63,63,41,33,33,41,63,63 
CX=CM-128: GOSUB 9500 

DATA 0,30,63,63,63,63,30,0 
CX=CB: GOSUB 9500 

RETURN 


9500 REM ---- GP INIT CARAC GRAPHIQUES ----------- 
9510 AM=46080+8#CX 

9520 FOR I=0 TO 7 

9530 1 READ XX: POKE AM+I,XX 

9540 NEXT 1! 

9550 RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier le nombre de balles d'une partie 


Remplacez, en 9010, le nombre 6 par la valeur de votre choix. 


2. Pour modifier la taille ou la position du mur 


Il vous suffit de savoir que, en 9050, les valeurs de Y3 (ici 5) et de Y4 (ici 9) 
correspondent aux rangs des lignes d'écran entre lesquelles s'étend le mur. 


Ainsi, par exemple: 
9050 Y1-3: Y2=-25: Y3-5: Y4—11 


vous fournira un mur commençant toujours à la 5° ligne en partant du haut, 
mais s'étendant jusqu'à la 11° ligne. 


De même: 
9050 Y1=3: Y2=—25: Y3=7: Y4—11 


vous fournira un mur de même étendue que le mur d'origine mais situé plus 
bas sur l'écran. 


Attention : la valeur de Y3 doit toujours être strictement supérieure à celle 
de Y1; celle de Y4 doit toujours être strictement inférieure à celle de R1 
(définie en ligne 9060). 


3. Pour modifier le domaine dans lequel évolue la raquette 


Il vous suffit de savoir que les valeurs 14 et 23 de la ligne 9060 en fixent 
les limites verticaies. 


Par exemple : 
9060 R1-19: R2-23 : LR=9 
vous conduira à un domaine plus restreint. 
Si vous remplacez 9060 par: 
9060 R1-23: R2=23: LR—19 
vous obtiendrez un jeu où la raquette ne peut plus se déplacer verticale- 
ment (vous retrouvez là la version classique du ‘mur de briques”). 
4. Pour modifier la taille de la raquette 
Remplacez, en 9060, le nombre 9 par la valeur de votre choix. 
5. Pour que la raquette se déplace horizontalement deux fois plus 
vite 
Remplacez 5030 par: 
5030 XR=XR+2x(CL= # BC)x(XR<XM)—2x(CL= # AC)x(XR > X1) 


6. Pour que la balle se déplace plus vite 


Remplacez 150 par: 
150 : GOSUB 4000: GOSUB 5000: GOSUB 4000: T-T+1 


7. Pour utiliser une poignée de jeu 


Chargez le programme MANETTE 1 comme décrit en annexe. Branchez la 
poignée du côté droit et remplacez les lignes 5000 à 5040 par: 


5000 CLePEEK(#400) 

5010 IF CL=191 THEN RETURN 

3020 PLOT XR,YR,CES$ 

3030 XR=XR+((CL AND 2)=0)#(KRÇXMI-((CL AND 1)=0)#(XR>X1) 

9040 YR=YR+((CL AND 8)=0)#(YRÇR2)+((CL AND 16)=0)#(YR>R1)#(YR<>Y+1) 
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4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Configuration clavier/écran 

— Poignées de jeu (facultatif). 


b) Le programme principal (100-190) 


110 appelle le sous-programme d'initialisation du jeu. 
120 et 180 répètent les instructions 130 à 170 (déroulement d'une partie) 
jusqu'à ce que vous disiez que vous ne voulez plus rejouer: 


130 prépare une partie en appelant successivement les sous- 
programmes : 
- initialisation d'une partie, 
- dessin du cadre et du mur de briques, 
- placement au hasard de la balle. 


140-160 répètent l'instruction 150 jusqu'à ce que le temps imparti à 
la partie soit écoulé ou jusqu'à ce que le mur de briques soit entiè- 
rement détruit: 


150 appelle le sous-programme de déplacement de la balle et le 
sous-programme de déplacement de la raquette et incrémente le 
compteur de temps. 


170 appelle le sous-programme de fin de partie. 


c) Le programme d'initialisation du jeu (9000-9190) 


9010 initialise le meilleur score et fixe le nombre de balles prévues. 
9020 supprime le bip du clavier et le curseur d'écran. 
9030 fixe les couleurs d'encre (utilisée pour le cadre et la balle) et de fond. 


9040-9070 fixent les coordonnées du cadre et du domaine dans lequel 
évolue la raquette ainsi que sa longueur. 


9080 calcule le nombre total de briques formant le mur. 
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9085 détermine la position initiale de la raquette. 


9090-9180 fabriquent les caractères graphiques (et les chaînes de carac- 
tères) représentant la balle, les briques du mur et la raquette. 


d) Le sous-programme d'initialisation d'une partie (8500-8540) 


Il initialise le compteur de temps, le nombre de briques détruites, le nombre 
de balles restant à jouer et il en affiche la valeur. 


e) Le sous-programme de placement au hasard de la balle (7000- 
7090) 


7005 vérifie qu'il y a encore au moins une balle à jouer. 
7010-7030 placent la balle, de façon aléatoire. 
7040-7050 déterminent la direction de la balle, de façon aléatoire. 


7060-7080 effacent l’ancienne raquette et dessinent la nouvelle en posi- 
tion initiale. 


f) Le sous-programme de dessin du cadre et du mur (8000-8120) 


8000-8060 dessinent le cadre. 
8070-8110 dessinent le mur. 


g) Le sous-programme de déplacement de la balle (3990-4170) 


Pour chaque déplacement, il considère trois cases comme l'indique ce 
schéma: 


C1 C3 


C2 


(@ désigne la balle et la flèche représente son sens de déplacement). 


4000 teste le contenu des trois cases C1,C2 et C3. 


114 


4010-4040 cas où ces trois cases sont disponibles : on avance la balle en 
C3 en vérifiant que la raquette ne rate pas la balle. Dans ce dernier 
cas, le nombre de balles restantes est incrémenté et l'on dessine une 
nouvelle balle (sous-programme 7000). 


4050-4170 examinent le contenu de ces cases, lorsqu'elles ne sont pas 

toutes les trois disponibles : 

4070-4090 cas où C1 est occupée: 
4070 appelle, lorsqu'il s’agit d'une brique, le sous-programme 
brique détruite” qui incrémente le nombre de briques et qui 
l'affiche. 
4080 assure, dans tous les cas (brique ou bord) le rebond de la 
balle et sa sonorisation. 


4100-4130 cas où C2 est occupée (sans que C1 le soit). On procède 
comme ci-dessus; seul le rebond a lieu différemment. 


4140-4170 cas où seule C3 est occupée. On procède de même; 
cependant 4160 donne au rebond un caractère quelque pe‘ aléa- 
toire (on est ici dans le cas où l’on touche une brique par un coin). 


h) Le sous-programme de déplacement de la raquette (4990-5050) 
5000-5010 lisent le clavier. 


5020 efface la raquette de son ancienne position. 


5030-5050 déterminent la nouvelle position de la raquette et la dessinent. 


i) Le sous-programme de sonorisation de rebond (2990-3030) 


Il émet un son dont la fréquence dépend de l'objet sur lequel la balle 
rebondit : 


100 pour une brique, 
500 pour le bord, 
200 pour la raquette. 


j) Le sous-programme de fin de partie (8700-8780) 


8720-8740 calculent le score et l'affichent en même temps que le meilleur 
score. 


8750 actualise le meilleur score. 


8760-8770 vous demandent si vous souhaitez rejouer. 
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5. Liste des variables 


MS 

NX 

PA 

IN 
X1,X2,Y1,Y2 
Y3,Y4 

R1,R2 


LR 
XM 


NB 
CT 
CM 
CB 
CR 
CES 


CR$ 
XR,YR 

T 

ND 

NC 

X,Y 
DX,DY 
C1,C2,C3 


SC 


meilleur score 

nombre total de balles 

couleur du fond (ici noir) 

couleur de l'encre utilisée pour le cadre et la balle 
coordonnées du cadre 

limites (verticales) entre lesquelles s'étend le mur 


limites (verticales) entre lesquelles peut se déplacer la 
raquette 


longueur de la raquette 


abscisse maximum de la raquette, compte-tenu de sa 
longueur 


nombre total de briques 

code ASCII du caractère représentant le cadre 
code ASCII du caractère représentant les briques 
code ASCII du caractère représentant la balle 
code ASCII du caractère représentant la raquette 


chaîne de caractères blancs servant à l'effacement de la 
raquette 


chaîne de caractères représentant la raquette 
coordonnées de l'extrémité gauche de la raquette 
compteur de temps 

nombre de briques détruites 

nombre de balles restant à jouer 

coordonnées de la balle (sauf en 8000) 

sens de déplacement de la balle 


codes ASCII des caractères situés sur la trajectoire de la 
balle (voir schéma) 


score 


Variables auxiliaires 


| CX CL 


X et Y (dans le sous-programme 8000) 


EF 
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15 
Embarquement immédiat 


1. Le jeu 


Devenez pour un instant un extra-terrestre ! C'est ce que vous propose ce 
jeu qui vous place aux commandes d'une soucoupe volante. 


Vos compatriotes ont voulu réaliser une exploration pacifique de la terre. Ils 
y ont déposé une colonie de robots, programmés pour recueillir le maximum 
d'informations. Mais les choses ont mal tourné ! Les terriens se sont empa- 
rés de vos robots et tentent d'en percer le secret. 


Vous êtes chargés de les récupérer le plus vite possible à l'aide d'une 
soucoupe équipée d'un générateur d'ondes anti-gravitationnelles. Vous 
pouvez ainsi ‘’aspirer'’ n'importe quel objet, simplement en le survolant. 
Facile direz-vous ! Certes. Encore, faut-il éviter de récupérer par maladresse 
des robots terriens qui voisinent avec les vôtres. En effet, ceux-ci risquent 
d'endommager plus ou moins gravement votre soucoupe, vous obligeant 
ainsi à effectuer des réparations coûteuses en temps. 
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Le domaine où sont parqués vos robots est entouré d'un intense champ 
gravitationnel. Le moindre survol vous ferait vous écraser au sol. 


Enfin, votre soucoupe consomme énormément d'énergie ; vous ne disposez 
que d'un temps limité pour effectuer votre ‘’embarquement”. Si vous n'y 
parvenez pas dans le délai imparti, vous vous écraserez sur le sol terrestre. 


Le programme vous propose quatre vitesses de jeu et trois niveaux: 


e Niveau 1 : Destiné à l'entraînement. || ne comporte ni robots terriens, ni 
champ gravitationnel. 


©e Niveau 2:11 comporte des robots terriens mais pas de champ gravita- 
tionnel. 


e Niveau 3: Il correspond à la description faite ci-dessus avec robots ter- 
riens et champ gravitationnel. 


Vous voyez ensuite apparaître vos robots (en jaune), les robots terriens (en 
bleu auréolé de blanc) s'il y a lieu et votre soucoupe. Le tout est entouré 
d'une bordure bleue et blanche qui délimite le domaine de jeu et qui repré- 
sente, au niveau 3, le champ antigravitationnel. 


Vous pouvez examiner la situation à loisir avant de commencer en tapant 
sur une touche. Vous dirigez votre soucoupe à l’aide des quatre touches 
fléchées. 


Le programme affiche en permanence le temps restant, le niveau de jeu, 
la vitesse et le meilleur score. Le survol d'un robot terrien est accompa- 
gné d'un bruit d'explosion et votre soucoupe est immobilisée un certain 


" 


temps. Le survol d'un de vos robots se traduit par un ”’zap”. 


Si vous parvenez à atteindre votre objectif dans le temps imparti, vous 
entendrez votre soucoupe s'éloigner de plus en plus rapidement. Dans le 
cas contraire, vous l'entendrez tomber et s'écraser au sol. (Voir photo 6 
hors-texte : Vue de l'écran pendant le déroulement du jeu). 
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2. Le programme 


REM *#####%%4%%% EMBARQUEMENT IMMEDIAT #44 dde dede 
GOSUB 9700 

REPEAT 

t GOSUB 9000: GOSUB 8000 

t IF PEEK(768)<>176 THEN DL=PEEK(735)-135 

4  KP=X+(DLe1)-(DL=2)s YP=Y+(DLs4)-(DL=3) 

à Ta=T-1s: PLOT 6,0,STR#(T)+" "y PLOT 6,0," " 
#5 IF VI<4 THEN WAIT 3#(4-VI) 

1 IF SCRN(IXP,YP)<>32 THEN 250 

4  PLOT K,V,932: XeXPs Y=YPs PLOT X,Y,CS 

t IF T>0 AND NR>0 THEN 140 

4 IF T<=0 THEN GOSUB 2000 ELSE GOSUB 3000 

:  GOTO 300 

t  C=SCRN(XP,VYP) 

5 IF C=CG AND NV=3 THEN GOSUB 2000: GOTO 300 
ï IF C=CG6 THEN DL=0: GOTO 180 

t IF C=CH THEN GOSUB 1700: GOTO 180 

t IF C=CR THEN GOSUB 1500: GOTO 180 

: GOTO 140 

1 IF T>MS(NV,VI) THEN MB(NV,VI)=T 

: PLOT 3,26,12: PLOT 4,26,"voulez vous rejouer (O/N)" 
4 GET R$r GET R$ 

UNTIL R$<>"0" 


END 
REM ----- SP ROBOT EMBARQUE -----------""-"""""" 
ZAP 1 NRaNR-1 


PLOT X,Y,32 

X=XP1 YaYPr PLOT X,Y,CS 

RETURN 

REM ---- GP ROBOT TERRIEN TOUCHE -----------. 
PING:MWAITB: SHOOT: HAITB: SHOOT 

PLOT KX,Y,32 


X=XP:3 Y=YP: PLOT X,Y,CS 

PæINT(RND(1)#60)% T=T-Ps IF Ti THEN T=i 
WAIT 2xP 

RETURN 

REM:-=-S SP PERDU ---------------------— 
WAIT 301 Tz=0 

PLAY 1,0,0,0 

FOR I=40 TO 170 

# SOUND 1,1,7: MWAIT 3 

NEXT I 

PLAY 0,0,0,0 

EXPLODEs HAIT 40: EXPLODEs WAIT 25: EXPLODE 
RETURN 
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120 


WAIT 50 

PLAY 1,0,0,0 

FOR I1=170 TO 40 STEP -1 

# SOUND 1,1,7: WAIT 3 

NEXT 1! 

PLAY 0,0,0,04 WAIT 50 

RETURN 

REM ---- 6P INITIALISATION D'UNE PARTIE --------- 
T=800: NH=25: NR=15 

FOR X=X1 TO X2 

: PLOT X,Y1,CG: PLOT X,Y2,CG 
NEXT X 

FOR Y=Y1 TO Y2 

t PLOT K1,Y,CG: PLOT X2,Y,CG 
NEXT Ÿ 

FOR I=i TO NR 

1 GOSUB 8500: PLOT X,Y,CR 
NEXT I! 

IF NV<2 THEN 8210 

FOR I=1 TO NH 

: GOSUB 8500: PLOT X,Y,CH 
NEXT I 

GOSUB 8500: PLOT X,Y,CS 

DL=0 

PLOT 2,0,"tapez sur une touche pour commencer 
GET R$1 WAIT 20 


PLOT 0,0,2 
PLOT 1,0,"TEMPS M-TEMPS NIV VIT s 
PLOT 19,0,STR$#(MS(NV,VI))e PLOT 19,0," " 


PLOT 28,0,STR$#(NV): PLOT 34,0,S8TR# (VI) 

RETURN 

REM --- SP TIRAGE COORDONNEES D'UN POINT DISPONIBLE ---- 
XæX1+2+INT(RND(1)#(X2-X1-3)) 
Y=Y1+2+INT(RND(1)#(Y2-Y1-3)) 

IF SCRN(X,Y)<>32 THEN 8510 

RETURN 

REM --- GP CHOIX DE L'UTILISATEUR --------------- 
CLS: PAzb: IN=4 

PAPER PA: INK IN 

PLOT 8,4,"EMBARQUEMENT IMMEDIAT" 

PLOT 5,8,"3 niveaux possibles" 


FOR I=1 TO 3 

5 PLOT 3,9+1,19: PLOT 37,9+1,PA+16 

NEXT I 

FOR Izi TO 3 

1 PLOT 4,9+1,1: PLOT 5,9+1,CHR#(I+48)1 PLOT 6,9+I,IN 


NEXT I 

PLOT 7,10,"pas d'obstacles" 

PLOT 7,11,"obstacles (robots terriens)" 
PLOT 7,12,"obstacles et champ de gravite" 
PLOT 8,14,"niveau choisi?" 

R$=KEY$s IF R$m"" THEN 9180 
NVsVAL(R#) 

IF NV>0 AND NV<4 THEN 9250 

à PLOT 22,14,"(1, 2 ou 3 svp)" 

& WAIT 100 

1 PLOT 22,14," l 

1 GOTO 9180 

PLOT 22,14,CHR$(48+NV) 

FOR Isi TO 2 

1 PLOT 3,18+1,18: PLOT 35,18+I,PA+16 
NEXT I 

PLOT 5,17,"4 vitesses possibles" 
PLOT 8,19,"de 1 (lent)" 

PLOT 8,20," a 4 (rapide)" 

PLOT 8,22,"vitesse choisie?" 
R$=KEY$: IF R$="" THEN 9300 
VI=VAL(R#) 

IF VI30 AND VI<S5 THEN 9370 

1 PLOT 26,22,"(1 a 4 svp)" 

t WAIT 100 

t PLOT 26,22," } 

: GOTO 9300 

PLOT 26,22,CHR$(48+VI) 

WAIT 100 

CLS: PA=0: IN=3: PAPER PAs INK IN 
RETURN 

REM ----- SP INIT CARAC GRAPHIQUES ---------------- 
AMz46080+8#C 

FOR I1=0 TO 7 

à READ XX: POKE AM+I,XX 

NEXT I! 

RETURN 

REM ----- 6P INITIALISATIONS DU JEU -------------- 
Xi=ir X2=30: Yizis Y2=26 

CG=64+1281 CRe94: CS=096: CHeCR+128 
DATA 12,12,30,63,63,30,12,12 
C=CG-128: GOSUB 9500 

DATA 14,14,4,31,47,14,10,10 

C=CR: GOSUB 9500 

DATA 12,20,63,45,45,63,63,30 

C=CS: GOSUB 9500 

DIM M6(3,4): POKE #26A,10 

RETURN 
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3. Si vous souhaitez personnaliser ce programme 


1. Pour changer la couleur de fond 


Remplacez, en 9390, la valeur O (dans PA — O0) par le nombre de votre 
choix. Notez que cette modification agit sur la couleur de la bordure et des 
robots terriens. 


2. Pour changer la couleur de vos robots et de la soucoupe 


Remplacez, en 9390, la valeur 3 (dans IN = 3) par la valeur de votre choix. 
Là encore, cette modification agit sur la couleur de la bordure et des robots 
terriens. 


3. Pour changer la durée du jeu 


Remplacez, en 8010, la valeur 800 par un nombre de votre choix. 


4. Pour modifier le nombre de robots 

Remplacez, en 8010, la valeur 15 (dans NR = 15) par le nombre de votre 
choix. 

5. Pour modifier le nombre de robots terriens 

Remplacez, en 8010, la valeur 25 (dans NH = 25) par le nombre de votre 
choix. 

6. Pour utiliser une poignée de jeu 


Chargez le programme "MANETTE 1 ”, comme décrit en annexe. Branchez 
la poignée droite et remplacez les lignes 140 et 150 par: 


140 C=PEEK(# 400) : IF C <> 191 THEN DL=C 
145 XP=X+((DL AND 1)-0)-((DL AND 2)=0) 
150 YP=Y+((DL AND 16)-0)-((DL AND 8)=0) 
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4. Description du programme 


b) 


Techniques utilisées, décrites en annexe 


Hasard. 

Création de caractères graphiques. 
Lecture rapide du clavier. 
Configuration clavier/écran. 
Poignées de jeu (facultatif). 


Le programme principal (100-340) 


110 appelle le sous-programme d'initialisation du jeu. 


120 et 290 répètent les instructions 130 à 280 (déroulement d'une partie) 


jusqu'à ce que vous ne souhaitiez plus rejouer: 

130 appelle le sous-programme de choix du niveau et de la vitesse de 
jeu ainsi que le sous-programme d'initialisation de la partie. 

140-290 sont répétées jusqu'à la fin de la partie (temps dépassé ou 
champ anti-gravitionnel ou robots embarqués): 


140 examine le clavier et, si une touche est enfoncée, actualise la 
direction de déplacement de la soucoupe. 


150 calcule la nouvelle position de la soucoupe. 
160 actualise le temps. 
170 réalise une attente dépendant de la vitesse de jeu choisie. 
172 examine le prochain emplacement. 
175-190 cas où ;: est disponible : on s'assure que la partie n'est pas 
terminée. Dans ce cas, on appelle l'un des sous-programmes de fin 
de partie (perdu où gagné). 
250-280 cas où il est occupé: 
260 appelle le sous-programme de fin de partie s'il s'agit d'un 
champ anti-gravité et si l'on est en niveau 3. 
265 immobilise la soucoupe s'il s’agit d'un champ anti-gravité 
et si l'on est dans un niveau différent de 3. 
270 appelle, s'il y a lieu, le sous-programme ‘robot terrien 
touché”. 
280 appelle, s'il y a lieu, le sous-programme ‘robot embarqué”. 
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300-320 actualisent le meilleur score et vous demandent si vous 
voulez rejouer. 


c) Le sous-programme de choix du niveau de jeu (9000-9400) 


9010-9020 fixent les couleurs d'encre et de fond employées pendant la 
durée du choix. 


9030-9240 font choisir le niveau de jeu, en rejetant les réponses autres 
que 1, 2 ou 3. 


9250-9380 font choisir la vitesse de jeu, en rejetant les réponses autres 
que 1, 2, 3 ou 4. 


9290 fixe les couleurs d'encre et de fond employées pendant le déroule- 
ment de la partie. 


d) Le sous-programme d'initialisation du jeu (9700-9820) 
9720 fixe les limites du domaine de jeu. 


9740-9800 fabriquent les caractères graphiques représentant le champ 
gravitationnel, la soucoupe et les robots. 


9810 réserve le tableau des meilleurs scores et supprime le bip du clavier 
et le curseur d'écran. 


e) Le sous-programme d'initialisation d'une partie (8000-8270) 


8010 initialise le compteur de temps, le nombre de robots terriens et le 
nombre de robots extra-terrestres. 


8070-8120 trace le contour d'un rectangle représentant la zone où règne 
un champ gravitationnel. 


8150-8170 dessinent les robots extra-terrestres. Le sous-programme 
8500 est utilisé pour tirer les coordonnées d'un emplacement 
disponible. 


8175-8200 dessinent, s’il y a lieu (niveau de jeu au moins égal à 2), les 
robots terriens. 


8210-8212 dessinent la soucoupe dans sa position de départ et initialisent 
sa direction de déplacement. 


8215-8220 attendent que vous pressiez une touche. 


8222-8250 affichent le meilleur score, le niveau et la vitesse de jeu. 
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f) Le sous-programme ‘robot embarqué’ (1490-1540) 


1500 émet un zap et actualise le nombre de robots restant à embarquer. 
1520 efface le robot. 
1530 déplace la soucoupe. 


g) Le sous-programme ‘’robot terrien touché" (1690-1745) 


1700 émet des sons appropriés. 
1720 efface le robot. 
1730 déplace la soucoupe. 


1740-1745 attendent pendant une durée tirée au hasard et actualisent le 
compteur de temps. 


h) Le sous-programme ‘’ perdu” (1990-2070) 


Il fait entendre le bruit de la soucoupe qui perd de l'altitude et qui explose 
au sol. 


i) Le sous-programme ‘’ gagné’ (3000-3080) 


Il fait entendre le bruit de la soucoupe qui s'éloigne de plus en plus vite. 


5. Liste des variables 


X1,X2,Y1,Y2 coordonnées du domaine de jeu 


CG code ASCII du caractère graphique représentant la limite du 
domaine (champ anti-gravité) 

CR code ASCII du caractère graphique représentant les robots 
extra-terrestres 

CS code ASCII du caractère graphique représentant la 
soucoupe 

CH code ASCII du caractère graphique représentant les robots 
terriens 


125 


PA 

IN 

NV 

VI 

T 

NH 

NR 

DL 
MS(3,4) 


X,Y 
XP,YP 


couleur de fond 

couleur d'encre 

niveau de jeu 

vitesse de jeu 

compteur de temps 

nombre de robots terriens 

nombre de robots extra-terrestres 

direction de déplacement de la soucoupe (1 à 4) 


tableau des meilleurs scores. MSi,j) représente le meilleur 
score relatif au niveau i et à la vitesse j 


coordonnées de la soucoupe 
coordonnées du prochain emplacement de la soucoupe 


Variables auxiliaires 


C AM 


XX RS 


X et Y (dans les sous-programmes 8500 et 9000) 
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16 
Aliénation 


1. Le jeu 


Ça y est ! Les aliens, ces êtres venus d'ailleurs, ont envahi la terre. La race 
humaine a presque entièrement disparu de la planète. Vous êtes l'un des 
rares survivants. Pour combien de temps! De nombreux aliens ne cessent 
de vous poursuivre pour vous détruire. Or, le moindre contact avec l'une de 
ces créatures serait mortel. 


Pour comble de tout, vous ne disposez d'aucune arme pour vous défendre. 
Toutefois, ça et là gisent des robots, à forme humaine, cloués sur place par 
une privation soudaine de l'énergie nécessaire à leur fonctionnement. Que 
puis-je attendre d'eux me direz-vous ? 


En fait, chacun de ces robots va pouvoir vous rendre un ultime service en 
faisant disparaître un alien (et un seul). En effet, tout contact entre un alien 
et un objet métallique conduit à la désintégration complète, et de l'objet et 
de l'alien. D'autre part, les aliens sont des êtres un peu stupides et aux 
réflexes lents (c'est leur nombre seul qui fait leur force). 
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Ils se déplacent par bonds irréguliers et, de façon assez grossière, dans 
votre direction. Îl vous suffit donc de les obliger à bondir sur un robot pour 
les faire disparaître. 


Comme vous le constaterez, les aliens font de grands bonds lorsqu'ils sont 
loin de vous. Par contre, une sorte de méfiance instinctive les amène à 
avancer plus lentement lorsqu'ils sont plus proches de vous. D'autre part, 
leur sens de l'orientation est peu évolué puisqu'ils peuvent être tout près 
de vous et faire un bond sur. ‘’un emplacement voisin”. 


Enfin, sachez que vous êtes la seule proie qui intéresse les aliens. En consé- 
quence, ils ne voient aucunement les robots et leurs déplacements ne sont 
nullement affectés par leur présence. 


En début de partie vous voyez apparaître la disposition des aliens (rouges), 
des robots (bleus) et du personnage qui vous représente (en rouge). Vous 
pouvez prendre le temps d'étudier la situation avant d'appuyer sur une 
touche quelconque. La chasse infernale s'engage alors. Vous vous déplacez 
grâce aux quatre touches fléchées? Ne craignez pas de percuter un robot. 
Cela ne vous fera aucun mal. 


Chaque désintégration (robot + alien) vous est signalée par un bruit sec et 
un éclair. Si vous êtes atteint par un alien (ou si, maladroitement, vous en 
percutez un) votre disparition est accompagnée de sons et d'effets lumi- 
neux appropriés. 


Le programme affiche en permanence le temps qui s'écoule et le meilleur 
temps réalisé jusqu'ici. 
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Vue de l'écran pendant le déroulement d'une partie 


2. Le programme 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 


REM HUMMER ALIENATION GA EU UE GE DUREE DUR NEED DEEE EDEN 
GOSUB 9000 
REPEAT 


GOSUB 8000 
FOR I=1 TO NA 
TaT+is PLOT 7,0,S8TR#(T) 
GOSUB 4000: GOSUB 30001 IF Fimi THEN 190 
NEXT 
8B0TO 140 
IF CTm=O AND(TMT OR MT=0) THEN MTaT 
WAIT 50: PLOT 26,0,12: PLOT 27,0,"rejouez vous" 
GET R$:s GET R$ 


UNTIL R$<>"0" 
END 
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130 


3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4990 
5000 
5010 
5020 
5030 
35040 
5050 
5060 
5080 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6073 
6080 
6090 
6990 
7000 
7010 
7020 
7030 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8065 
8070 
8080 
8090 
8100 


REM ----- SP DEPLACEMENT HUMANOIDE ----=-——- 
CL=PEEK(#208)1 IF Cl=#38 THEN RETURN 
XN=XB+(CLa#AC)-(CLe#BC)s YN=YB+(CLaæ#9C)-(CLe#B4) 

IF XN>X2-2 OR XNCXI1+2 OR YN>Y2-2 OR YN<Y1+2 THEN RETURN 
IF SCRNIXN,YN)<>32 AND SCRN(IXN,YN)<>CB THEN 4050 
PLOT XB,YB,321 XB=XN: YB=YN: PLOT XB,YB,CB: RETURN 
IF SCRNIXN,YN)=C0 THEN RETURN 

GOSUB 6000: RETURN 

REM ----- SP DEPLACEMENT ALIEN NUMERO I ---------- 
XzXA(I)1 Y=YA(I)1 IF X=0 THEN RETURN 
XN=X+(RND(1)+0,5)#((X>2XB)-(X<XB)+2#((X>XB+4)-(X<XB-4))) 
YN=Y+(RND(1)+0,5)#((Y>YB)-(Y<YB)+2#((Y>YB+4)-(YCYB-4))) 
IF SCRN(IXN,YN)<232 THEN 5050 

PLOT X,Y,324 PLOT XN,YN,CA: XA(I)=XN: YA(I)=YNs RETURN 
IF SCRNIXN,YN)=CA THEN RETURN 

IF SCRN(IXN,YN)=C0 THEN GOSUB 7000 ELSE GOSUB 6000 
RETURN 

REM ---== SP MORT HUMANOIDE ---"mmmmmmmmm— 
FOR Lei TO 7 

1 FOR Ksi TO 7 

1 INK K: PAPER L 

1 NEXT K 

1 ZAP: WAIT 2 

NEXT L 

INK INs PAPER PA: POKE 48040,16% PLOT 1,0,2 

PLOT XB,YB,321 PLOT XN,YN,CA 

EXPLODEs WAIT 60: EXPLODE 

Fim=is RETURN 

REM ----- SP MORT ALIEN ------—-mmmm—— 
INK 51 PLOT X,Y,321 XA(I)=0 

PLOT XN,YN,32: SHOOT: WAIT 5: INK IN 

CT=CT-i1 IF CTé=0 THEN Fla=i 

RETURN 

REM ----- SP INITIALISATION D'UNE PARTIE --------- 
CT=NA: CLS: FIlz0: T=0 

POKE 48040,16: PLOT 1,0,2 

FOR I=i TO NO 

4 XæX1+3+INT(RND(1)#(X2-K1-5)) 

1 YeY1i+3+INT(RND(1)#(Y2-Y1-5)) 

1 IF GSCRN(X,Y)<>32 THEN 8040 

1 PLOT X,Y,C0 

NEXT I 

FOR I=i TO NA 

8 X=X1+INT(RND(1)#(K2-X1+1)) 

3 Ya=Y1L+INT(RND(1)#(Y2-Y1+1)) 


8110 
8115 
8120 
8130 
8140 
8150 
8160 
8180 
8190 
8200 
8210 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9140 
9150 
9500 
9510 
9320 
9530 
9540 
9550 


t IF SCRN(KX,Y)<232 THEN 8090 

1 XA(I)=X: YVA(I)=Y: PLOT X,Y,CA 
NEXT I! 
XB=X1+INT(RND(1)#(X2-X1-4))+2 
YB=Y1{+INT(RND(1)#(Y2-V1-4))+2 

IF SCRN(XB,YB)<>32 THEN 8130 

PLOT XB,YB,CB 

PLOT 2,0,"pour commencer, tapez une touche": GET R$ 
PLOT 2,0,"TEMPS M-TEMPS" 
PLOT 20,0,STR#(MT)+" ! 
RETURN 

REM ----" 6P INITIALISATIONS DU JEU --------------- 
CLS: IN=i: PA=3: INK IN: PAPER PA 
MT=0: FI=0: NO=18: NA=12 

DIM XA(NA),YA(NA) 

Xizis X2=301 Yizi: V2#26 
CO=64+128: CA=95: CB=96 

DATA 12,30,53,43,53,63,21,42 

C=CA1 GOSUB 9500 

DATA 12,12,8,30,45,12,18,33 

C=CB1 GOSUB 9500 

DATA 0,18,63,45,63,51,33,51 
C=C0-128: GOSUB 9500 

POKE #26A,10 


RETURN 

REM ----- 6P INIT CARAC GRAPHIQUES ---------------- 
AM=46080+8%C 

FOR I=0 TO 7 

1 READ XX: POKE AM+I,XX 

NEXT I 

RETURN 


3. Si vous souhaitez personnaliser ce jeu 


1. Pour modifier le nombre de robots 


Remplacez, en 9020, le nombre 18 par la valeur de votre choix. 
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2. Pour modifier le nombre d’aliens 


Remplacez en 9020, le nombre 12 par la valeur de votre choix. 


REMARQUE : Ne placez jamais plus d’aliens que de robots, car il serait alors 
impossible de gagner. 


3. Pour utiliser une poignée de jeu 


Chargez le programme ‘MANETTE 1’ comme indiqué en annexe. Bran- 
chez la poignée du côté droit puis remplacez les lignes 4000 et 4010 par: 


4000 CL=PEEK(#400): IF Cla=191 THEN RETURN 
4010 XN=XB+((CL AND 1)=0)-((CL AND 2)=0) 
4015 YN=YB+((CL AND 16)=0)-((CL AND 8)=0) 


4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Configuration clavier/écran. 

— Poignées de jeu (facultatif). 

— Écriture directe en mémoire d'écran. 


b) Le programme principal (100-230) 


110 appelle le sous-programme d'initialisation du jeu. 


120 et 220 répètent les instructions 130 à 220 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer. 
130 appelle le sous-programme d'initialisation d'une partie. 

140 à 180 sont répétées jusqu'à ce que la partie soit finie (F1 = 1), 
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soit par disparition de tous les aliens, soit par votre propre 
disparition : 

140 et 170 répètent, pour chaque alien, les instructions 150 et 
160. Celles-ci incrémentent le temps, déplacent l'humanoïde qui 
vous représente et un alien. 


190-200 actualisent le meilleur score et vous demandent si vous 
désirez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9150) 


9010 fixe les couleurs de fond et d'encre. 

9020 initialise le meilleur score et fixe le nombre de robots et d'aliens. 
9030 réserve les deux tableaux contenant les coordonnées des aliens. 
9040 fixe les limites du domaine de jeu. 


9050-91 10 fabriquent les caractères graphiques représentant les robots, 
les aliens et l'humanoïde. 


9140 supprime le bip du clavier et le curseur d'écran. 


d) Le sous-programme d'initialisation d’une partie (8000-8210) 


8010 initialise le nombre d'aliens survivants et le compteur de temps; 
efface l'écran. 


8020 fixe les couleurs (fond et encre) de la ligne du haut de l'écran. 
8030-8070 dessinent les robots dans leur position initiale. 


8080-8120 dessinent les aliens dans leur position initiale et placent leurs 
coordonnées dans XA et YA. 


8130-8160 déterminent les coordonnées initiales de l'humanoïde et le 
dessinent. 


8180 attend que vous tapiez une touche. 


8190-8200 affichent le meilleur temps. 


e) Le sous-programme de déplacement de l’'humanoïde 
(3990-4060) 


4000 examine le clavier. 
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4010-4020 calculent la nouvelle position de l'humanoïde et vérifient 
qu'elle reste dans le domaine de jeu. 


4030 examine le contenu de cette nouvelle position: 
4040 déplace l'humanoïde si la position est libre. 


4060 appelle le sous-programme ‘mort humanoïde” si la position 
est occupée par un alien. 


f) Le sous-programme de déplacement d'un alien 


Il déplace l'alien dont le numéro est contenu dans la variable I. 
5000 vérifie que l'alien concerné est encore vivant. 
5010-5020 calculent la nouvelle position de l'alien. 


5030-5040 vérifient que cette position est disponible et, dans ce cas, 
déplacent l'alien. 


5050 vérifie que cette position n'est pas occupée par un autre alien. 


5060 appelle le sous-programme “” mort humanoïde” si cette position est 
occupée par l'humanoïde et le sous-programme ‘mort alien” si elle 
est occupée par un robot. 


g) Le sous-programme ‘’ mort d’un alien’’ (6990-7030) 


7000 change temporairement la couleur d'encre (pour simuler un éclair) et 
efface l'alien. 


7010 efface le robot, émet un bruit de fusil et rétablit la couleur d'encre 
initiale. 

7020 décrémente le compteur de survivants. Met à un l'indicateur de fin de 
partie si tous les aliens sont morts. 


h) Le sous-programme ‘’ mort de l’humanoïde”’’ (6000-6090) 


6010-6060 créent des effets sonores et lumineux en modifiant les 


couleurs d'encre et de fond et en faisant entendre des “zap”. 
6070 rétablit les couleurs d'origine. 


6075-6080 effacent l'humanoïde et placent à un l'indicateur de fin de 
partie. 
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5. Liste des variables 


PA couleur de fond utilisée pour le domaine de jeu 

IN couleur d'encre utilisée pour l'humanoïde et les aliens; 
les robots sont en ‘vidéo inverse” 

MT meilleur temps 

FI indicateur de fin de jeu 


FI = O cas usuel 
FI = 1 fin de jeu détectée 


NO nombre total de robots 
NA nombre total d'aliens 


XA(NA),YA(NA) tableaux contenant les coordonnées des aliens. (Quand 
un alien disparaît, son abscisse passe à zéro) 


X1,X2,Y1,Y2 coordonnées du domaine de jeu 


CO code ASCII du caractère représentant les robots 

CA code ASCII du caractère représentant les aliens 

CB code ASCII du caractère représentant l'humanoïde 
CT nombre d'aliens encore en vie 

T temps écoulé 

XB,YB coordonnées de l'humanoïde 

XN,YN nouvelles coordonnées de l'humanoïde ou d'un alien 


| numéro de l'alien en cours de déplacement 


Variables auxiliaires 


| (dans le sous-programme 8000 seulement) 
L OK X Y CL 
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17 
Amanites 


1. Le jeu 


C'est l'automne. Dans les sous-bois et les prairies, le long des routes et des 
chemins, des champignons, pressés de vivre, apparaissent plus beaux et 
plus tentants les uns que les autres. 


Soyez donc un fin ’mycologue”’. Remplissez votre panier de champignons 
comestibles et évitez ceux qui sont dangereux et encore plus ceux qui sont 
mortels. 


Vous déplacez votre panier”, le long du bas de l'écran à l’aide des touches 
“" et "+". Les touches ” |” et "le déplacent également horizon- 
talement mais à une vitesse triple de la précédente. Les champignons vien- 
nent à vous et pour les cueillir, il vous suffit de les intercepter avec votre 
panier. 
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Vous constatez que les champignons ne se déplacent pas tous à la même 
vitesse ; cela rend plus difficile l'appréciation du moment où ils seront au 
niveau de votre panier et donc le choix de l'ordre dans lequel il faut les 
ramasser. 


Enfin, pour comble de tout, tous n'ont pas la même valeur ! Les champi- 
gnons blancs sans ‘’volve”’ rapportent un nombre de points égal à dix fois 
leur vitesse (qui va de 1 à 4). Les mêmes champignons, rouges sur fond 
blanc rapportent vingt fois leur vitesse. Par contre, les champignons à volve 
représentent des amanites. Les blancs sont seulement dangereux et vous 
font perdre un nombre de points égal à 100 fois leur vitesse. Par contre, les 
rouges sur fond blanc sont mortels et leur ‘’cueillette” interrompt immé- 
diatement la partie. Vous verrez un récapitulatif de ces règles apparaître en 
haut à droite de l'écran. 


Vous disposez d'un temps limité pour obtenir un maximum de points. Lors- 
qu'ils tombent dans votre panier, les champignons comestibles se 
reconnaissent à un bruit de clochette. Les autres se signalent par un coup 
de fusil pour les dangereux et par une explosion pour les mortels (nous 
devrions dire le mortel car vous n'aurez guère l'occasion d'en goûter 
plusieurs au cours d'une même partie). 


PTE et DUT 





Vue de l'écran pendant le déroulement d'une partie 
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2. Le programme 
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REM #kw###4NEX AMANITES 42464646 UNE HAE HE DENE HE DENE HEURE 
GOSUB 9000 

REPEAT 

GOSUB 8000 

1 REPEAT 

1 FOR I=1 TO NC 

1 GOSUB 4000: GOSUB 30001 T=T-is IF FI=i THEN 190 
1 NEXT 
ï 

1 

1 


UNTIL FIi=i OR T<=0 
PLOT 20,0,12: PLOT 21,0,"rejouez vous F 
GET R$: GET R$ 
1 IF SC>MS THEN MS=6C 
UNTIL R$<>"0" 
END 
REM ----- SP DEPLACEMENT DU CHAMPIGNON I --------- 
YN=Y(I)+V(I)s PLOT X(I1),Y(1),32 
IF YN<Y2 THEN Y(I)=YN: PLOT X(1),Y(1),C(1): RETURN 
IF SCRN(X(I),Y(1)+1)<>32 THEN GOSUB 5000 
GOSUB 6000: RETURN 


REM ----- SP DEPLACEMENT PANIER --------""-""""- 
CePEEK(#208): IF C=#38 THEN RETURN 
PLOT X,Y,"  " 


XeX+(C=#BC)#(XC36)-(CæHAC)#(X21)+3#(CeH9C)#(X<34)-3#(C=x#B4)#(X 


PLOT X,Y,CR#: RETURN 

REM ----- SP CHAMPIGNON CUEILLI ------------------ 
IF C(I)=223 THEN 5100 

K=104 PINGs IF C(1)=222 THEN K=20 

IF C(1)=95 THEN K=-100: SHOOT 

6C=8C+K*#V(I)1 IF SCO THEN S5C=0 


PLOT 4,0," MIPLOT 4,0,8TR#(6C) 

RETURN 

EXPLODEr Flmi 

RETURN 

REM ----- TIRAGE NOUVEAU CHAMPIGNON ------------- 


Y(I)=ie X(I)=1+INT(RND(1) #38) 
C(I)R#CC(INT(RND(1)#8+1))4 V(I)=INT(RND(1)#VM+1) 
RETURN 


REM ----- 8P INITIALISATION D'UNE PARTIE ----------- 
CLS: PLOT 1,0,21 PLOT 0,26,IR: SC=0 

PLOT 2,0,"SC M-6C ” 

PLOT 15,0,STR$#(MS): PLOT 22,0,IN 

PLOT 23,0,CHR$(CC(1))+"10"+CHRS$(CC(2))+"20" 
PLOT 29,0,CHR$(CC(3))+"-100"+CHR$ (CC (4) )+"FIN" 
FOR I=1 TO NC: GOSUB 6000: NEXT I 

X=15: Y=26: FI=0: T=1000 

PLOT X,Y,CRS$ 

RETURN 

REM ----- SP INITIALISATIONS DU JEU --------------- 
INsb: PA=Q: IR=3: CLS: INK IN: PAPER PA 

Ximir X2=381 Yixir V2=26 

NC=9: VM=4: M6=0 

DIM X(NC) ,Y (NC) ,C(NC) ,VONC) ,CC (8) 

POKE #26À,10 

DATA 12,30,63,63,12,12,12,12 

DATA 12,30,63,63,12,12,30,30 

CC(1)m=941 CC(2)=94+1281 CC(S)=951 CC(4)=95+128 
CC(5)=94: CC(b)=294: CC(7)=94+128: CC(8)=94+128 
Cizb4: C2#93: C3=96 

CsCC(1): GOSUB 9500: CeCC(3): GOSUB 9500 

DATA 56,56,96,28,31,15,7,1 

CsCi: GOSUB 9500 

DATA 0,0,0,0,63,63,63,63 

C=C2: GOSUB 9500 

DATA 7,7,7,14,62,60,56,32 

CsC3: GOSUB 9500 
CR$=CHR$ (C1) +CHR$ (C2) +CHR$ (C3) 


RETURN 

REM ----- SP INIT CARAC GRAPHIQUES ------------"-- 
AM=46080+8#C 

FOR 1=0 TO 7 

1 READ XX: POKE AM+I,XX 

NEXT I 

RETURN 
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3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier la couleur du panier 


Remplacez, en 9010, le nombre 3 par une valeur de votre choix (1 à 7). 


2. Pour modifier la durée d'une partie 


Remplacez, en 8070, le nombre 1000 par une valeur de votre choix. 


3. Pour modifier le nombre de champignons présents en même 
temps sur l'écran 


Remplacez, en 9030, la valeur 9 par un nombre de votre choix. Notez que: 
e une valeur trop petite conduit à une perte d'intérêt du jeu, 


e une valeur trop grande entraîne un déplacement trop ‘’saccadé” des 
champignons. (Seule, une programmation en langage machine permet- 
trait de déplacer convenablement un nombre important de champignons). 


4. Pour modifier la vitesse maximum de déplacement d'un 
champignon 


Remplacez, en 9030, le nombre 4 par une valeur de votre choix comprise 
entre 1 et 4 (une valeur supérieure à 4 conduirait à un fonctionnement 
défectueux). 


4. Description du programme 


a) Techniques utilisées, décrites en annexe 


Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— SCROLL. 
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— Écriture directe en mémoire d'écran. 
— Configuration clavier/écran. 


b) Le programme principal (100-240) 


110 appelle le sous-programme d'initialisation du jeu. 


120 et 230 répètent les instructions 130 à 220 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer: 


130 appelle le sous-programme d'initialisation d'une partie. 


140 et 190 répètent les instructions 150 à 170 jusqu'à ce que le 
temps imparti soit écoulé ou que vous ayez ‘”’cueilli"” un champi- 
gnon mortel (FI = 1): 

150 à 170 déplacent tour à tour chacun des champignons (sous- 
programme 3000) ainsi que le panier (sous-programme 4000). 


200-210 vous demandent si vous souhaitez rejouer. 
220 actualise le meilleur score. 


c) Le sous-programme d'initialisation du jeu (9000-9160) 


9010 fixe les couleurs du fond, de l'encre et celle du panier. 
9020 fixe les limites du domaine dans lequel évoluent les champignons. 


9030 fixe le nombre de champignons apparaissant simultanément sur 
l'écran, la vitesse maximum et initialise le meilleur score. 


9040 donne les dimensions des tableaux. 
9045 supprime le bip du clavier et le curseur de l'écran. 


9050-9150 fabriquent les caractères graphiques servant à représenter les 
diverses sortes de champignons ainsi que le panier. 


d) Le sous-programme d'initialisation d’une partie (8000-8080) 


8010-8050 initialisent le score, affichent le meilleur score, les différents 
types de champignons et les points correspondants. 


8060 appelle huit fois le sous-programme 6000 qui tire au hasard la posi- 
tion, le type et la vitesse d'un champignon. 


8070-8080 dessinent le panier dans sa position initiale. 
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e) Le sous-programme de déplacement du champignon numéro | 
(2990-3050) 


3000 calcule la nouvelle position du champignon et l'efface de sa position 
actuelle. 


3030 dessine le champignon dans sa nouvelle position s'il n’a pas atteint le 
bas de l'écran. 


3040 détermine, dans le cas contraire, s'il rencontre le panier et, dans ce 
cas, appelle le sous-programme ‘champignon cueilli”. 


3050 appelle le sous-programme ‘tirage d'un nouveau champignon”, à 
chaque fois qu'un champignon disparaît en bas de l'écran. 


f) Le sous-programme de déplacement du panier (3990-4040) 


4000 examine si une touche du clavier a été enfoncée. 
4020 efface le panier de sa position actuelle. 


4030 détermine la nouvelle position du panier en fonction de la touche 
enfoncée. 


4040 dessine le panier dans sa nouvelle position. 


g) Le sous-programme ‘’champignon cueilli'” (4990-5110) 


5000 examine s'il s'agit ou non d'un champignon mortel. 


5010-5050 émettent le son approprié et actualisent le score dans le cas 
d'un champignon non mortel. 


5100-5110 font entendre une explosion et signalent que la partie est finie, 
dans le cas d'un champignon mortel. 


5. Liste des variables 


PA couleur du fond (ici noir) 


IN couleur de l'encre utilisée pour représenter certains champi- 
gnons (les autres étant représentés en ‘vidéo inverse”) 
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IR 
X1,X2,Y1,Y2 


NC 
VM 
MS 
X(NC),Y(NC) 


C(NC) 


VINC) 
CC(8) 


C1,C2,C3 
CR$ 

SC 

X,Y 

FI 


YN 


couleur du panier 


coordonnées du domaine dans lequel évoluent les 
champignons 


nombre de champignons présents simultanément sur l'écran 
vitesse maximum de déplacement d'un champignon 
meilleur score 


tableaux contenant les coordonnées des champignons 
présents sur l'écran 


code ASCII du caractère représentant chacun des champi- 
gnons présents sur l'écran 


tableau contenant la vitesse de chaque champignon 


code ASCII des huit caractères représentant les huit types 
de champignons (ici, plusieurs de ces caractères sont, en 
fait, identiques) 


codes ASCII des trois caractères représentant le panier 
chaîne de trois caractères représentant le panier 

score 

coordonnées de l'extrémité gauche du panier 
indicateur de fin de partie: 

0: cas normal 

1: fin de partie 

durée d'une partie 


numéro du champignon en cours de déplacement (sauf dans 
les sous-programmes 8000 et 9500) 


nombre de points attribués au champignon cueilli 
nouvelle ordonnée du champignon en cours de déplacement 


Variables auxiliaires 


C | R$ 
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18 
Les envahisseurs 


1. Le jeu 


Les extra-terrestres envahissent notre planète. Bien que non armés, leurs 
intentions ne sont nullement pacifiques. Vous êtes chargés d'en détruire le 
maximum à l'aide de missiles classiques. 


Les envahisseurs se présentent par vagues de dix soucoupes. Leur entrée 
brutale dans l'atmosphère terrestre entraîne des perturbations de tout 
genre dont les deux plus importantes sont: violente illumination du ciel, 
neutralisation de votre base de tir (elle ne peut ni se déplacer, ni tirer de 
missiles). 


Les envahisseurs ont prévu que les différentes vagues se succèdent de plus 
en plus rapidement. Cependant, ils tiennent compte de votre habileté à les 
détruire. Plus vous serez rapides, plus le temps séparant deux vagues sera 
élevé. Votre ordinateur central, couplé à vos radars vous renseignera sur le 
délai prévu entre une vague et la suivante. Vous pourrez ainsi mesurer 
l'effet de votre effort destructeur. 
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Au début du jeu, trois vagues apparaissent successivement en haut de 
l'écran. Les soucoupes s’immobilisent alors dans l'attente de la vague 
suivante. 


Vous voyez votre base de tir en bas de l'écran. Elle se déplace à l'aide des 
touches +" et "et vous tirez un missile en pressant la barre d'espace. 
Vous ne pouvez tirer de nouveau missile tant que le précédent n'a pas 
atteint son but ou disparu en haut de l'écran. Par contre, vous pouvez 
déplacer votre base pendant qu'un missile est en l'air. Très souvent même, 
vous serez obligés de le faire pour gagner du temps. 


Quand une nouvelle vague de dix soucoupes se présente, le ciel devient 
blanc et vous ne pouvez plus agir sur votre base de tir. Les soucoupes déjà 
présentes descendent légèrement pour faire place aux nouveaux arrivants 
puis tout redevient normal (si l’on peut dire). 


Le jeu se poursuit jusqu'à ce que l'une des soucoupes atteigne le niveau du 
sol. Vous avez donc tout intérêt à éliminer les soucoupes les plus basses. 


Le programme affiche en permanence votre score (nombre de soucoupes 
détruites), le meilleur score et le nombre d’envahisseurs présents dans le 
ciel (N — E). (Voir photo 7 hors texte: Vue de l'écran pendant le déroule- 
ment du jeu). 


2. Le programme 


100 REM ###Ww#######4% ENVAHISSEURS #4 HHUUUUEEUEUEUEUE AE GED NE HE DE DE AE 
110 GOSUB 5000 

120 REPEAT 

125 GOSUB 4000: FI=0 

130 FOR I=1 TO 4: GOSUB 2000: NEXT I 

135 DN=DV: DC=DN 


140 REPEAT 
145 FOR I=1 TO LV: GOSUB 2000: NEXT I 
147 CH$=" "x1D=36: GOSUB 7000: CH#=STR#(INT(DC)): GOSUB 7000 


150 FOR I=i TO DC 

160 GOSUB 1500: GOSUB 1000: GOSUB 1500 
170 NEXT 1 

180 DN=DN#TEs DC=DN#(EV#30-NT)/(EV#30) 
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UNTIL FIz=i 

IF SC<MS THEN 230 

MS=6C1 CH$=STR$ (SC): ID=141 GOSUB 7000 
WAIT 2001 CLS 

PLOT 5,10,"voulez vous rejouer (0/N)?" 
GET R$: GET R$ 

UNTIL R$#<>"0" 

POKE #264,3 


END 
REM ---- GP DEPLACEMENT BASE DE TIR --------------- 
DL=PEEK(#208) 


IF DL=#84 AND YO=YT THEN XO=XT: YO=YT-11 PLOT X0,YO,COs RETURN 
IF DL<)#AC AND DLC>HBC THEN RETURN 
KN=XT+(DL=#AC)-(DL=#BC) 

IF XN>X2 OR XN<X1 THEN RETURN 

PLOT XT,YT, 322 PLOT XN,YT,CTE XTeXN 

RETURN 

REM ---- GP DEPLACEMENT MISSILE ------ 
IF YO=YT THEN RETURN 

YN=YO-1: PLOT X0,Y0,32 

IF YN<Y1 THEN YO=YTs RETURN 

IF SCRN(XO,YN)<)CE THEN PLOT XO,YN,COr YO=YN: RETURN 
SHOOT: PLOT XO,YN,32 

NECYN+1)=NECYN+1)-12 SCmGC+is NTeNT-1 


CH$=STR$ (SC): ID=4: GOSUB 7000 

CH$=STR$ (NT): ID=25: GOSUB 7000 

YO=YT 

RETURN 

REM ---- 6P NOUVELLE VAGUE ENVAHISSEURS ---------- 
PAPER 7 


IF YOC)YT THEN PLOT KO,YO,321 YO=YT 

IF NECYT-1)€30 THEN GOSUB 3000: RETURN 

FOR K=YT TO 2 STEP -11 NE(K)=NE(K-1)1 NEXT K 
NE(1)=EVr NTaNT+EV 

CH$=STR$(NT)à ID=251 GOSUB 7000 

PRINT CHR#(11)32 PLOT XT,YT,CT 

FOR K=1 TO EV 

à X=INT(RND(1)#(X2-X1)+1) 

1 IF GCRN(X,Y1)€)32 THEN 2070 

1 PLOT X,Y1,CE 

NEXT K 

PAPER PA 

RETURN 

REM ---- GP FIN DE PARTIE == 
FOR K=7 TO O STEP -1 

1 PAPER K: ZAP 


4: FOR L=7 TO 0 STEP -1 
5 INK Ls WAIT 3 


t NEXT L 

NEXT K 

WAIT 100: Fl=i: PAPER PA: INK IN 

RETURN 

REM ---- 6P INITIALISATION D'UNE PARTIE --------- 
CLS 

CH$="6C M-6C N-EN DELAI : 
ID=21 GOSUB 7000 


CH$=8TR$ (MS) ID=141 GOSUB 7000 
XT=X1+INT(RND(1)#(X2-KX1)+1) 
YT=26: XO=XTa PLOT XT,YT,CT 
DC=DV: SC=0: FIz=0: NT=0 

FOR I=1 TO YT: NE(I)=0: NEXT I 


RETURN 
REM ---- GP INITIALISATIONS DU JEU ----------- 
POKE #26A,10 


Kimi K2=381 Y1=01 Y2=26 

DV=1601 EV=51 LV=21 TE=.975 

DIM NE(26) 

MS=0 

PAzbr IN=i 

PAPER PAr INK IN 

CTa94: CO=951 CE=96 

DATA 12,12,12,12,30,30,63,63 
C=CT: GOSUB 8000 

DATA 12,12,12,12,12,12,12,12 
C=C0: GOSUB 8000 

DATA 0,12,30,45,63,30,0,0 

C=CE: GOSUB 8000 

AD=#BB801 POKE AD,2 

RETURN : 
REM ---- SP AFFICHAGE EN LIGNE SUPERIEURE ------- 
FOR K=1 TO LEN(CH$) 

POKE AD+1D+K-1,A8C(MID$ (CH$,K, 1) ) 


NEXT K 

RETURN 

REM ---- INIT CARAC GRAPHIQUES ---------------- 
AM=460B0+8%C 

FOR I=0 TO 7 

1 READ XX: POKE AM+I,XX 

NEXT I 

RETURN 
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3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier la couleur du ciel 


Remplacez, en 5050, la valeur 6 (dans PA = 6) par un nombre de votre 
choix, entre O et 6. (Si vous utilisez 7 qui correspond à blanc, l’arrivée d'une 
nouvelle vague ne se signalera plus par un changement de couleur). 


2. Pour modifier la couleur des soucoupes et de la base 


Remplacez, en 5050, la valeur 1 (dans IN = 1) par un nombre de votre 
choix (entre O et 7). 


3. Pour modifier le nombre de soucoupes par vague 


Vous pouvez agir à la fois sur le nombre de soucoupes par ligne (actuelle- 
ment 5) et sur le nombre de lignes par vague (actuellement 2). 


Pour modifier le nombre de soucoupes par ligne, remplacez, en 5020, la 
valeur 5 (dans EV = 5) par le nombre de votre choix. 


Pour modifier le nombre de lignes par vague, remplacez, en 5020, la valeur 
2 (dans LV = 2) par un nombre de votre choix. 


4. Pour modifier le rythme de jeu et le rendre ainsi plus facile ou plus 
difficile 


Vous pouvez agjir à la fois sur le délai initial séparant deux vagues (actuelle- 
ment 160) et sur le coefficient réducteur de délai (actuellement 0.975). 


Pour modifier le délai initial séparant deux vagues, remplacez, en 5020, la 
valeur 160 (dans DV — 160) par un nombre de votre choix. 


Pour modifier le coefficient réducteur, remplacez, en 5020, la valeur .975 
par un nombre de votre choix ne dépassant pas 1. Un nombre supérieur à 
0.975 correspondra à une partie dont le rythme s’accélérera moins rapide- 
ment. Un nombre plus petit correspondra à une accélération plus rapide du 
rythme. 


Notez que si vous souhaitez que le délai séparant deux vagues soit cons- 
tant, il vous suffit de choisir un comme coefficient. 
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Pour utiliser une poignée de jeu 


Chargez le programme ‘ MANETTE 1" comme décrit en annexe. Branchez 
la poignée du côté droit et remplacez les lignes 1010 à 1030 par: 


1010 DLæPEEK(#400) 

1020 IF DL=191 THEN RETURN 

1025 IF (DL AND 32)=0 THEN XO=XTs: YVO=YT-11 PLOT X0,YO,C0: RETURN 
1030 XN=XT+((DL AND 1)=0)-((DL AND 2)=0) 


4. Description du programme 


a) 


b) 


Techniques utilisées, décrites en annexe 


Hasard. 

Création de caractères graphiques. 
Lecture rapide du clavier. 

Écriture directe en mémoire d'écran. 
SCROLL. 

Poignées de jeu (facultatif). 


Le programme principal 


110 appelle le sous-programme d'initialisation du jeu. 


120 et 260 répètent les instructions 125 à 250 (déroulement d'une partie) 


jusqu'à ce que vous précisiez que vous ne désirez plus rejouer: 
125 appelle le sous-programme dl'initialisation d'une partie. 
130 fait apparaître quatre rangées d'envahisseurs. 


140 et 190 répètent les instructions 145 à 180 jusqu'à ce que les 
envahisseurs aient atteint le sol (FI = 1): 


145 fait apparaître une nouvelle vague (deux rangées de 
soucoupes). 

147 affiche le délai prévu. 

150-170 répètent un nombre de fois correspondant au délai prévu 
l'appel du sous-programme de déplacement de la base de tir et 
l'appel du sous-programme de déplacement de missile. 
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200-230 actualisent le meilleur score, l'affichent et appellent le sous- 
programme de fin de partie. 


240-250 vous demandent si vous désirez rejouer. 


c) Le sous-programme d'initialisation du jeu (5000-5160) 


5005 supprime le bip du clavier et le curseur d'écran. 
5010 fixe les limites du domaine de jeu. 


5020 initialise le délai séparant deux vagues, fixe le nombre d'envahis- 
seurs par ligne, le nombre de lignes par vague et le coefficient de 
réduction de délai. 


5046 initialise le meilleur score. 
5050-5060 fixe les couleurs d'encre et de fond. 


5065-5120 fabriquent les caractères graphiques représentant la base de 
tir, les missiles et les soucoupes. 


5130 fixe la couleur d'encre utilisée sur la ligne supérieure. 


d) Le sous-programme d'initialisation d’une partie (4000-4060) 


4010 efface l'écran. 

4015-4017 affichent les ‘’titres”’ en ligne supérieure. 
4018 affiche le meilleur score. 

4020-4030 dessinent la base de tir. 


4040 initialise le délai séparant deux vagues, le score, l'indicateur de fin de 
partie et le nombre de soucoupes détruites. 


4050 initialise le tableau: nombre de soucoupes par ligne. 
e) Le sous-programme de déplacement de la base de tir (1000- 


1060) 


1010 examine le clavier. 


1020initialise un tir de missile si la barre d'espace a été pressée et qu'au- 
cun tir n'est en cours. 
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1030 calcule la nouvelle position de la base. 
1040 vérifie que la base ne sort pas des limites. 


1050 dessine la base dans sa nouvelle position. 


f) Le sous-programme de déplacement de missile (1500-1590) 


1510 examine si un tir est en cours. 
1520 définit la nouvelle position du missile et efface l'ancien. 


1530 examine si le missile sort de l'écran et si oui remet à zéro l'indicateur 
"tir en cours”. 


1540 examine si une soucoupe est atteinte et, si ce n'est pas le cas, 
dessine le missile dans sa nouvelle position. 

1550-1600 cas où une soucoupe est atteinte: 
1550 émet un bruit et efface la soucoupe. 


1560-1580 actualisent le nombre de soucoupes par ligne, le score et 
le nombre de soucoupes présentes. 


1590 remet à zéro l'indicateur ‘’tir en cours”. 


, 


g) Le sous-programme 
2110) 


‘nouvelle vague d'envahisseurs'" (2000- 


2005 rend l'écran blanc. 
2010 supprime le tir en cours s'il y a lieu. 


2020 vérifie que la dernière ligne ne contient pas d'envahisseurs. Si ce 
n'est pas le cas, le sous-programme de fin de partie est appelé. 


2030-2045 met à jour le tableau nombre d'envahisseurs par ligne et le 
nombre d'envahisseurs présents sur l'écran. 


2050 fait défiler le contenu de l'écran vers le bas (scroll) et redessine la 
base de tir. 


2060-2100 place au hasard cinq envahisseurs en haut de l'écran. 


2105 redonne à l'écran sa couleur d'origine. 


5. Liste des variables 


X1,X2,Y1,Y2 limites du domaine de jeu 


DV 

EV 

LV 

TE 
NE(26) 


MS 
PA 
IN 
CT 
co 
CE 
AD 


ID 
XT,YT 
XO,YO 
DC 


SC 
FI 
NT 


DN 


XN 
YN 


délai maximum séparant deux vagues 

nombre d'envahisseurs par ligne 

nombre de lignes formant une vague 

coefficient réducteur du délai séparant deux vagues 


tableau contenant le nombre de soucoupes de chaque ligne 
d'écran 


meilleur score 

couleur de fond 

couleur d'encre utilisée pour les soucoupes et la base de tir 
code ASCII du caractère représentant la base de tir 
code ASCII du caractère représentant le missile 

code ASCII du caractère représentant les soucoupes 


adresse mémoire correspondant au début de la ligne 
supérieure 


désignation d'un emplacement courant en ligne supérieure 
coordonnées de la base de tir 
coordonnées du missile. Si YO — YT aucun tir n’est en cours 


délai courant prévu entre deux vagues, compte tenu du 
nombre d'envahisseurs présents sur l'écran 


score 


indicateur de fin de partie 
0: cas normal 
1: fin de partie 


nombre d'envahisseurs présents sur l'écran 


délai courant prévu entre deux vagues, compte non tenu du 
nombre d'envahisseurs présents sur l'écran 


nouvelle abscisse de la base de tir 
nouvelle ordonnée du missile 


Variables auxiliaires 


AM 
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XX K L CH$ X DL 


19 
Alunissage 


1. Le jeu 


Serez-vous capable de poser une fusée en douceur sur la lune. C'est ce que 
va vous révéler ce jeu. 


Vous êtes aux commandes d'une fusée. Au départ, elle se trouve, immobile, 
à 100 mètres d'altitude. Sous l'effet de la pesanteur, votre fusée descend 
de plus en plus rapidement vers la surface. Heureusement vous disposez de 
“’rétro-fusées”” que vous pouvez faire fonctionner quand vous le souhaitez 
pour réduire votre vitesse de chute. Vous pouvez même, si vous n'y prenez 
garde, changer le sens de votre vitesse et vous éloigner de la surface de la 
lune. Toutefois, ce n'est pas dans votre intérêt car votre carburant est limité 
et vous risquez fort dans ce cas de ne plus pouvoir amortir la chute finale. 


Les seules informations qui vous sont fournies par les instruments de bord 
sont : 


— altitude, 
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— vitesse, 
— niveau de carburant. 


Au début du jeu, vous voyez se dessiner les trois instruments sur l'écran: 


@ à gauche: le compteur de vitesse gradué de 0 à 5. La vitesse y est repré- 
sentée par une bande de couleur verte quand vous descendez et bleue 
quand vous montez, 


e au centre: l'altimètre gradué de O à 10. O représente le niveau de la 
surface lunaire et 10 l'altitude dont vous partez (100 m si vous ne 
modifiez pas le programme). L'altitude y est représentée par une bande 
jaune. Si, par hasard, vous dépassez votre altitude de départ, le pro- 
gramme fonctionnera normalement. Seul votre altimètre restera bloqué 
au maximum tant que vous ne serez pas redescendu au-dessous de 
100 m. Quand votre altitude tombera au-dessous de 10 m, elle sera 
représentée par une bande violette, avec une précision dix fois plus 
grande. Autrement dit, le maximum correspondra alors à 10 m. Cette 
particularité doit vous permettre de mieux contrôler la phase finale de 
l'alunissage. 


©e à droite: votre jauge de carburant. Le niveau y est matérialisé par une 
bande rouge. 


Dès que le jeu est commencé, votre fusée se met à descendre. Vous êtes 
renseigné sur sa vitesse de façon visuelle grâce au compteur et égale- 
ment de façon sonore grâce à un son dont la hauteur (fréquence) aug- 
mente avec la vitesse. Vous pouvez ainsi quitter le compteur des yeux 
tout en restant renseigné de ce qui se passe. 


Vous déclenchez les rétro-fusées grâce à la barre d'espace. Celles-ci fonc- 
tionnent tant que vous maintenez la pression. 


Quand votre altitude atteint zéro, le programme considère que vous avez 
aluni. || vous communique la vitesse avec laquelle vous avez pris contact 
avec le sol et le niveau de carburant restant. || Vous fournit un score qui 
dépend de ces deux valeurs. Toutefois, si votre vitesse de contact est supé- 
rieure à 2, le programme vous fera entendre l'explosion de votre fusée et 
votre score sera nul. Dans les deux cas, vous verrez apparaître le meilleur 
score; 


REMARQUE: Par souci de simplification des mesures des instruments de 
bord, les valeurs fournies pour la vitesse ne correspondent pas à la réalité 
lunaire. Pour les puristes, disons que la vitesse indiquée serait exacte si l'on 
divisait l'altitude indiquée par environ 5. 
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2. Le programme 


100 
110 
120 
130 
135 


140 : 


150 
160 
170 
180 
185 
190 
195 
200 
210 
220 
230 
235 
240 
250 


260 : 


270 

280 

290 

300 

4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4075 
4080 
4085 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 


REM wh#kka#x### ALUNISSAGE ##4#4446 eee UHR EE 
GOSUB 9000 
REPEAT 
: GOSUB 5000 
4 PLAY 1,0,0,0 
REPEAT 
t  CLePEEK(#208) 
IF CL=#84 AND CA>0 THEN V=V+D2: CA =CA-1 ELSE V=V-Di 
H=H+V: GOSUB 4000 
UNTIL H<0 
V=INT(V#1000)/1000 
IF V>=-2 THEN GOTO 200 
PRINT'vous vous ecrasez à "3-Vs" m/s":EXPLODE:SC=0:G0OT0 250 
PRINT "vous alunissez a ";-V;" m/s" 
IF Vé-1 THEN Kz=-1/(2#V) 
IF Viz-1 AND V<=0,1 THEN K=1+V/2 
5 IF V}-0,1 THEN Kzi 
t FLAY 0,0,0,0 
: SC=INT(K#200+CA) 
? PRINT "SCORE ":;SC;" M-SCORE ":MS:" CARBURANT ";CA 
IF SC>MS THEN MS=SC 
t WAIT 100: PRINT "voulez vous rejouer"; 


à GET R$: GET R$ 
UNTIL R$<>"o" 
END 

REM ==. SP VISUALISATION DE B,H,CA AVEC SONO ------ 
HX=INT(-H1#V/VM): CXa=Ci 

IF V>0 THEN CX=C2: HX=-HX 

IF HXHI THEN HX=Hi 

CURSET X1+6,Y1,0: IF HX>=1 THEN FILL HX,L1/6-2,CX 
IF Hi-HX>=1 AND lX>0 THEN FILL Hi-HX,L1/6-2,16 
HX=H1xH/HMs CX2C3: IF HX2HI THEN HX=H1 

IF HCHM/10 THEN HX=10#HX: Ck=C4 

HX= INT (HX) 

CURSET X2+6,Y1,0 

IF Hi-HX>=1 AND HX>=0 THEN FILL Hi-HX,L2/6-2,16 
IF HX>=1 THEN FILL HX,L2/6-2,CX 

HX= INT (HI#CA/CM) 

CURSET X3+6,V1,0: IF Hi-HX>=1 THEN FILL Hi-HX,L3/6-2,16 
IF HX)=1 THEN FILL HX,L3/6-2,C5 

IF V<0.01 AND V>-0.01 THEN 4160 

F=200/V: IF F<O THEN F=-F 

SOUND 1,F,5 

RETURN 
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5000 REM ----- SP INITIALISATION D'UNE PARTIE ------"-- 
5005 V=0: H=HM: CA=CM 

5010 GOSUB 4000 

5020 PRINT: PRINT: PRINT 

5030 RETURN 

8000 REM ----- GP TRACE CADRE EN X,Y DE DIMENSION H,L -------- 
8010 CURSET X-1,Y-1,1 

8020 DRAW L+2,0,1: DRAW O,H+1,1 

8030 DRAW -(L+2),0,1: DRAW O0,-(H+1),1 

8040 RETURN 

9000 REM ----- SP INITIALISATIONS DU JEU --------"-"-"" 
9010 PA=0: IN=3: CLS: PAPER PA 2 INK IN 

9020 MS=0: Di=0,11 D2=0.05 

9030 Ci=ib+2: C2=1b+6: C3=16+3: C4=16+5: CS=16+1 

9040 PG=0: IG=7: HIRES: PAPER PG: INK IG 

9050 X1=241 X2=108: X3=180 

9060 Yi=ir Him1901 Li=4ii L2=411 L3=35 

9070 VM=51 HM=1001 CM=80 

9080 X=X1r Y=Yir LeLirs H=Hir: GOSUB 8000 

9090 X=K21 Y=Vis L=L2: H=His GOSUB 8000 

9100 X=X31 V=Yi1 LæLl31 H=Hi: GOSUB 6000 

9105 X=K1-12 

9110 FOR V=i TO VM 

9120 2 V=Y1+V#H1/VM 

9130 1 CURSET X,Y-8,01 CHAR ASC(MID#(BTR#(V),2,1)),0,1 
9140 à CURSET X+6,Y,11 DRAW 6,0,1 

9150 NEXT V 

9160 FOR I=0 TO 9 

9170 à Y=Y1+H1#(10-1)/10 

9180 : CURSET X2-6,Y,0: DRAW 6,0, 1 

9190 s CURSET X2-12,Y-8,01 CHAR ASC(MID#(BTR#(1),2,1)),0,1 
9200 NEXT I 

9210 CURSET K1+L1-5,V1,0: FILL H1,1,16 

9220 CURSET X2+L2-5,Y1,0: FILL H1,1,16 

9230 CURSET K3+L3-5,V1,04 FILL Hi,1,16 

9240 POKE #26A,10 

9250 RETURN 
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3. Description du programme 


a) 


b) 


Techniques utilisées, décrites en annexe 


Lecture rapide du clavier. 
Configuration clavier/écran 


Le programme principal (100-300) 


110 appelle le sous-programme d'initialisation du jeu. 


120 et 290 répètent les instructions 130 à 280 (déroulement d'une partie) 


c) 


jusqu'à ce que vous disiez que vous ne souhaitez plus rejouer: 
130 appelle le sous-programme d'initialisation d'une partie. 


140 et 180 répètent les instructions 150 à 180 qui ‘déplacent la 
fusée” jusqu'à ce que vous ayez aluni: 


150 examine le clavier. 
160 actualise la vitesse et éventuellement le niveau de carburant. 


170 actualise l'altitude et appelle le sous-programme qui présente 
les différentes informations sur vos instruments de bord. 


185 arrondit la vitesse d'alunissage à 3 décimales (avant de la présen- 
ter sur l'écran). 


190 examine votre vitesse d'alunissage. 


195 vous dit à quelle vitesse vous vous êtes écrasé (si celle-ci est 
supérieure à 2 m/s). 


200-240 calculent votre score, lorsque votre vitesse d'alunissage ne 
dépasse pas 2 m/s. 


250-260 affichent votre score, le meilleur score, votre vitesse et votre 
niveau de carburant et actualisent le meilleur score. 


270-280 vous demandent si vous souhaitez rejouer. 


Le sous-programme d'initialisation du jeu (9000-9250) 


9010 fixe les couleurs de fond et d'encre utilisées pour le bas de l'écran. 


9020 initialise le meilleur score et fixe les variations élémentaires de 


vitesse. 
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9030-9040 fixent les différentes couleurs employées en graphique haute 
résolution (HIRES). 


9050-9060 fixent les emplacements et les dimensions des instruments de 
bord. 


9070 fixe la vitesse maximum indiquée par le compteur, l'altitude initiale et 
le niveau initial de carburant. 


9080-9100 dessinent les trois cadres des instruments de bord (en utilisant 
le sous-programme 8000). 


9105-9150 trace la graduation du compteur de vitesse. 
9160-9200 trace la graduation de l'altimètre. 
9210-9230 place l'attribut ‘fond noir” dans les parties droites des cadres. 


9240 supprime le bip du clavier et le curseur de l'écran. 


d) Le sous-programme d'initialisation d’une partie (5000-5030) 


5006 initialise la vitesse, l'altitude et le niveau de carburant. 


5010 appelle le sous-programme présentant les différentes informations 
sur les instruments de bord. 


5020 efface le bas de l'écran. 


e) Le sous-programme de présentation des informations (4000- 
4160) 


4010-4050 visualisent la vitesse : 
4010-4020 déterminent la hauteur de la bande et sa couleur. 
4030 examine si la vitesse dépasse la vitesse maximum affichable. 
4040-4050 effectuent le coloriage de la bande. 


4060-4090 visualisent l'altitude : 
4060-4075 déterminent la hauteur de la bande et sa couleur. 
4080-4090 effectuent le coloriage de la bande. 


4100-4120 visualisent le niveau de carburant. 


4130-4150 adaptent le son émis à la vitesse. 
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4. Liste des variables 


PA 
IN 
MS 
D1 
D2 


c1,Cc2 


C3,C4 


C5 
PG 
IG 


X1,X2,X3 
Y1 

H1 
L1,L2,L3 
VM 

HM 

CM 

V 


H 
CA 
SC 


couleur de fond du bas de l'écran 

couleur d'encre employée pour le bas de l'écran 
meilleur score 

variation élémentaire de la vitesse, en cas de chute libre 


variation élémentaire de la vitesse quand les retro-fusées 
sont en action 


attributs servant à colorier la bande du compteur de vitesse. 
C1 correspond à une vitesse dirigée vers le bas et C2 à une 
vitesse dirigée vers le haut. 


attributs servant à colorier la bande de l'altimètre. C3 corres- 
pond à la présicion normale et C4 à une précision multipliée 
par dix. 


attribut servant à colorier la bande de la jauge de carburant 
couleur de fond de la partie graphique 


couleur d'encre utilisée pour les cadres des instruments de 
bord 


abscisse du côté gauche de chacun des instruments de bord 
ordonnée commune du haut des instruments de bord 
hauteur des trois instruments de bord 

largeur de chacun des trois instruments de bord 

vitesse maximum indiquée par le compteur 

altitude de départ 

niveau initial du carburant 


vitesse de la fusée (négative quand la fusée descend, posi- 
tive quand elle monte) 


altitude 
carburant restant 
score 


Variables auxiliaires 


X: Y°- EL 


CL K R$ 


HV (dans sous-programme 9000) 


159 


20 
Billard 


1. Le jeu 


Vous allez pouvoir vous adonner aux joies de ce jeu, sans risquer de déchi- 
rer le tapis d'un coup de canne malencontreux. 


Le but consiste à lancer votre boule, grâce à une canne, de manière à ce 
qu'elle vienne toucher une autre boule après deux rebonds sur les bords du 
billard. Si vous touchez sans rebond (ce qui est très facile) ou après un seul 
rebond, vous ne marquez aucun point. 


Le programme commence par vous dessiner un tapis de billard (vert) 
entouré d'une bordure violette. Vous voyez apparaître deux boules, en des 
emplacements quelconques. L'une d'entre elles est accompagnée d'une 
‘canne de billard” représentée par un trait. Vous allez tout d'abord devoir 
mettre en place la canne dans la position qui vous semble la meilleure pour 
l'objectif visé (toucher l'autre boule en deux rebonds). Vous utilisez pour 
cela les touches fléchées qui vous donnent deux vitesses de déplacement 
de la canne (autour de la boule): 


+: déplacement lent dans le sens inverse des aiguilles d'une montre. 


|: déplacement rapide dans le sens inverse des aiguilles d'une montre. 
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—: déplacement lent dans le sens des aiguilles d'une montre. 


t: déplacement rapide dans le sens des aiguilles d’une montre. 


Quand la position vous paraît correcte, vous ‘tirez’ en pressant la barre 
d'espace. Vous entendez alors le son de la canne heurtant votre boule puis 
celle-ci se déplace sur le tapis. Chaque rebond se signale par un son 
approprié. 


Si vous touchez la boule dans les conditions requises vous serez récompen- 
sés par le jeu d'un accord parfait (notez, au passage, les possibilités 
sonores de l'ORIC). 


Douze coups vous seront ainsi proposés. A la fin vous obtiendrez un score 
qui dépendra du nombre de coups réussis et du temps passé à mettre votre 
canne en place. 


Le programme affiche en permanence le temps qui s'écoule pendant la 
mise en place de la canne, le numéro du coup et le nombre de coups 
réussis. 


2. Le programme 


100 REM ######MEHUNEE BILLARD HAHHURUUNEUEUEUEUEOUEUEUNEUEUEUNEUNEUNEUE HN 

120 GOSUB 90001 GOSUB 8000 

125 GOSUB 9500 

130 FOR NB=1 TO NC 

140 « GOSUB 7000 

150 : REPEAT 

160 : XNmX+CTI YN=Y+6T 

3 IF ABS(XC-XN)<6 AND ABS(YC-YN)<B THEN TC=1 
180 : IF XN<XI+4 OR XN>X2-4 OR YN<Yi+4 OR YN>Y2-4 THEN GOSUB 2000 
3 CURSET X-3,Y-4,0: CHAR CB,0,2 

200 : X=XNs Y=YNe CURSET X-3,Y-4,0: CHAR CB,0,1 

210 1 UNTIL TC=1 OR NReRX+1 

220 : GOSUB 4000 

230 NEXT NB 

240 WAIT 100: SC=INT(NT#1000-5#T) 

250 IF SCO THEN SC=0 

260 PRINT CHR$(13);CHR$ (13) 

290 PRINT " VOTRE SCORE EST :"3;SC 

300 IF SC€MS THEN PRINT "LE MEILLEUR SCORE RESTE:"3;MS 
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IF SC>=MS THEN PRINT "LE MEILLEUR SCORE ETAIT";MS : MS=SC 
WAIT 100 
PRINT "voulez vous rejouer (O/N)?"; 
GET R$: GET R$ 

IF R$="0" THEN GOTO 125 
PRINT CHR$(6);CHR#(17)3 
END 

REM === SP DEPLACEMENT AVEC REBOND -------------- 
IF XNÇX1+4 THEN XN=X1+4: NRENR+i1 CTe-CT 

IF XN23X2-4 THEN XN=KX2-43 NR=NR+i: CTe-CT 

IF YN<YI+4 THEN YN=Y1+4: NR=NR+1: STæ-ST 

IF YN>Y2-4 THEN YN=Y2-41 NReNR+i: GT=-6T 

CURSET X-3,Y-4,0: CHAR CB,0,2 

X=XNs YmeYNs CURSET X-3,Y-4,01: CHAR CB,0,1 

SOUND 1,10000,0: PLAY 1,0,1,200 

RETURN 

REM ----- SP FIN D'UN COUP ----------------------- 
IF TC=1 THEN SOUND 1,4000,0: PLAY 1,0,1,100 

IF TC<>1 OR NR€DRX THEN 4100 

MUSIC 1,3,1,0: PLAY 1,0,1,500: WAIT 35 

MUSIC 2,3,5,0: PLAY 2,0,1,500: WAIT 35 

MUSIC 3,3,8,0: PLAY 4,0,1,500: WAIT 30 

PLAY 7,0,1,1500: WAIT 60 

NT=NT+1 

FOR I=i TO 25: PRINT CHR$(9)3;: NEXT I 

PRINT NT;CHR#(13)y 

CURSET XC-3,YC-4,0: CHAR CB,0,0 

CURSET X-3,Y-4,0: CHAR CB,0,0 

RETURN 

REM ---- SP MISE EN PLACE DE LA CANE ------------- 
CURSET X-3,Y-4,0: CHAR CB,0,1 

TaT+i: GOSUB 6500 

XE=X+LC*COS (TH): YE=Y+LC#SIN(TH) 

CURSET X,Y,0: DRAW KE-X,VE-V,1 

CL=PEEK(#208) 

IF CL=#38 THEN T=T+0,3: GOSUB 6500: GOTO 6060 

IF CLe#84 THEN 6150 
THa=TH+((CLe#AC)-(CLehBC)+7#((CL=#B4)-(CL=#9C)))#DT 
CURSET X,Y,0: DRAW XE-X,YE-Y,0 

GOTO 6010 

CURSET X,Y,0: DRAW XE-X,YE-Y,0 

CURSET X-3,Y-4,0: CHAR CB,0,1 

SOUND 1,28,0: PLAY 0,1,1,400 


RETURN 

REM ---- SP AFFICHAGE DU TEMPS ----------- 
PRINT " M"ÿINT(T); 

PRINT CHR$(13); 

RETURN 
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REM ----- SP DEBUT D'UN COUP --------"--"-"""""""" 
FOR I=1 TO 12: PRINT CHR$#(9);s NEXT I 

PRINT NBjCHR# (13); 

XC=X1+5+INT(RND(1)#(X2-X1-10)) 

YCm=V1+5+INT (RND(1)#(Y2-V1-10)) 


CURSET XC-3,YC-4,0 

CHAR CB,0,1 
X=X1+5+LC+INT(RND(1)#(X2-X1-10-2#LC)) 
YaY1+5S+LC+INT(RND(L)#(V2-Y1-10-2#L0C)) 

IF SQR ((X-XC) 2+(Y-YC)#2)<ELC+S THEN 7060 
CURSET X-3,Y-4,0 

CHAR CB,0,1i 

TCz01 NR=0 

GOSUB 6000 

CT=-DEXCOS(TH): STz-DE#SIN(TH) 

RETURN 

REM ----- 6P DESSIN DU BILLARD -----------mmmmm 
Xi=121: K222281: Yisib:s V2=184 

INs4: PAu2: Bi=x128: B2=165 

HIRES 

CURSET 0,0,0 


FILL 200,1,B1+PA+16 
CURSET 6,0,0 

FILL 200,1,B1+IN 

CURSET 12,0,0 

IF X1312 THEN FILL 200,(X1-N2)/6,B1 

CURSET X1,0,0 

FILL Y1,(240-V1)/6,B2 

CURSET X1,Y2,0 

FILL 200-Y2,(X2-K1)/6,B2 

CURBET X2,0,0 

FILL 200,(240-X2)/6,B1 

POKE #264,10 

RETURN 

REM ----- BP INITIALISATIONS DU JEU ===. 
PAPER 61 INK 41 NC=121 MS=01 RY=2 

LC=40: DT=0,02 


DE=8: TH=6,28*RND(1) 

CB=64 

DATA 12,30,63,63,63,83,30,12 

AM=46080+8+CB 

FOR I=0 TO 7 

1 READ XX: POKE AM+I,XX 

NEXT I 

RETURN 

REM ----- SP INITIALISATION D'UNE PARTIE ---------: 
TeOs NTæO1 PRINT CHR#(13)} 
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9510 FOR I=i TO 36% PRINT " "yeNEXT I 

9540 PRINT " TEMPS BOULE COUPS REUSSIS" 
9550 FOR I=i TO 36: PRINT " "paNEXT I 

9560 PRINT CHR#(13)y 

9570 RETURN 


3. Si vous souhaitez personnaliser ce programme 


1. Pour modifier la couleur des boules 


Remplacez, en 8020, la valeur 4 (dans IN = 4) par un nombre de votre 
choix (0 à 7). 


2. Pour modifier la couleur du ‘’ tapis” 


Remplacez, en 8020, la valeur 2 (dans PA = 2) par un nombre de votre 
choix (0 à 7). Évitez toutefois d'employer la même couleur pour le tapis et 
les boules! 


3. Pour modifier le nombre de coups par partie 


Remplacez, en 9005, la valeur 12 (dans NC = 12) par un nombre de votre 
choix. 


4. Pour rendre le jeu plus facile ou plus difficile 


Vous pouvez agir sur le nombre obligatoire de rebonds. Pour cela, il vous 
suffit de remplacer, en 9005, la valeur 2 (dans RX = 2) par celle de votre 
choix. Ainsi: 


e O conduira à un jeu extrêmement facile puisqu'aucun rebond ne sera 
nécessaire. Cela peut vous servir, au début, à vous entraîner. 


e 1 conduira à un jeu assez facile ne demandant qu'un seul rebond. 
e 2 correspond au programme actuel. 


e 3 conduira à un jeu très difficile puisque trois rebonds seront nécessaires. 
etc. 
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4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Configuration clavier/écran 


b) Le programme principal (100-370) 


120 appelle les sous-programmes d'initialisation du jeu et de dessin du 
billard. 


125-350 sont répétées jusqu'à ce que vous précisiez que vous ne sou- 
haitez plus rejouer: 
125 appelle le sous-programme d'initialisation d'une partie. 


130 et 230 répètent douze fois les instructions 140 à 220 qui cons- 
tituent le jeu d'un coup: 


140 appelle le sous-programme de début d'un coup (dessin des 
boules et mise en place de la canne). 


150 et 210 répètent le déplacement de votre boule jusqu'à ce 


qu'elle touche l'autre boule ou que le nombre de rebonds dépasse 
deux: 


160 détermine les nouvelles coordonnées de votre boule. 
170 examine s'il y a contact entre les deux boules. 


180 examine s'il y a rebond, et dans ce cas appelle le sous- 
programme “rebond”. 


190-200 déplacent votre boule. 
220 appelle le sous-programme de fin d'un coup. 


240-310 calculent votre score, l'affichent en même temps que le 
meilleur score qui est actualisé. 


320-340 vous demandent si vous souhaitez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9200) 


9005 fixe les couleurs de la bande inférieure de l'écran, fixe le nombre de 
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coups d'une partie, le nombre de rebonds requis et initialise le meil- 
leur score. 


9020-9030 fixent la longueur de la canne, sa position initiale et les dépla- 
cements élémentaires. 


9035 supprime le bip du clavier et le curseur d'écran. 
9040-9090 fabriquent le caractère graphique représentant les boules. 


d) Le sous-programme de dessin du billard (8000-8200) 


8010 fixe les coordonnées du tapis de jeu. 


8020 fixe les couleurs du billard et les codes des caractères utilisés pour 
représenter les bords. 


8030 place l'ORIC en mode graphique haute résolution. 
8040-8150 dessinent les bords du billard. 


e) Le sous-programme d'initialisation d’une partie (9500-9570) 


9505 initialise le compteur de temps et le nombre de coups réussis. 


9510-9560 affichent les ‘’titres’” de la bande inférieure (qui n’est pas en 
haute résolution, et dans laquelle on peut écrire par PRINT). 


f) Le sous-programme de début d'un coup (7000-7140) 


7010-7015 affichent le numéro du coup. 


7020-7050 dessinent la boule ‘’cible”’, après avoir tiré sa position au 
hasard. 


7060-7100 tirent au hasard la position de votre boule, en tenant compte 
de la longueur de la canne, et la dessinent. 


7110 initialisent l'indicateur ‘’touché”’ et le nombre de rebonds. 
7120 appelle le sous-programme de mise en place de la canne. 


7130 détermine les déplacements élémentaires de la boule. 
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g) Le sous-programme de mise en place de la canne (6000-6210) 


6010-6120 sont répétées jusqu'à ce que vous pressiez la barre d'espace: 
6010 redessine la boule. 
6020 actualise le temps. 
6030-6040 dessinent la canne. 
6060-6070 attendent qu'une touche du clavier soit pressée. 
6080 examine s'il s'agit de la barre d'espace. 


6090 détermine la nouvelle position de la canne en fonction de la 
touche pressée. 


6100 efface la canne. 
6150 efface la canne. 
6170 redessine la boule. 


6190 fait entendre le bruit de la canne qui frappe la boule. 


h) Le sous-programme de déplacement avec rebond (2000-2100) 


2030-2060 déterminent la nouvelle position de la boule (en évitant qu'elle 
ne franchisse le bord) et actualisent les déplacements élémentaires, 
en fonction du bord sur lequel rebondit la boule. 


2070 efface la boule de sa position actuelle. 
2080 dessine la boule dans sa nouvelle position. 
2090 émet le bruit du rebond. 


i) Le sous-programme de fin d’un coup (4000-4200) 


4010 fait entendre un bruit de choc, s'il y a lieu. 
4020 examine si le coup est réussi ou non. 


4030-4090 font retentir, en cas de coup réussi, les notes do, mi, sol suivies 
de l'accord formé de ces trois notes puis actualisent le nombre de 
coups réussis. 


4100-4110 effacent les deux boules. 
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5. Liste des variables 


NC 
MS 
RX 

LC 

DT 

TH 

DE 

CB 

T 

NT 
X1,X2,Y1,Y2 
IN 

PA 

B1 

B2 
XC,YC 
X,Y 
TC 


NR 

CT 

ST 
XE,YE 
XN,YN 
SC 


nombre de coups d'une partie 

meilleur score 

nombre de rebonds requis 

longueur de la canne 

déplacement angulaire élémentaire de la canne 
angle formé par la canne avec l'axe horizontal 
déplacement élémentaire de la boule 

code ASCII du caractère représentant les boules 
temps écoulé pendant la mise en place de la canne 
nombre de coups réussis 

coordonnées du “tapis” du billard 

couleur des boules et de la canne 

couleur du tapis 

caractère représentant les bords verticaux du billard 
caractère représentant les bords horizontaux du billard 
coordonnées de la boule cible 

coordonnées de votre boule 


indicateur ‘boule cible touchée” 
0: pas de boule touchée 
1: boule cible touchée 


compteur du nombre de rebonds, au cours d'un même coup 
déplacement horizontal élémentaire de votre boule 
déplacement vertical élémentaire de votre boule 
coordonnées de l'extrémité de la canne 

coordonnées du prochain emplacement de votre boule. 
score 


Variables auxiliaires 


AM I XX CL 
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21 


Dictée musicale 


1. Le jeu 


Voici un jeu qui va vous permettre de révéler ou de développer vos talents 
de musicien. 


Il s'agit bel et bien d'une dictée puisque le programme va vous faire 
entendre des notes qu'il vous faudra reconnaître en les plaçant sur une 
portée musicale. La pratique répétée d'un tel jeu peut vous permettre d'affi- 
ner considérablement votre “oreille”. 


Au départ, vous voyez apparaître une portée avec, en jaune la note do. Le 
programme vous fait alors entendre le son correspondant, en transformant 
la note en rouge, pendant tout le temps où elle est jouée. Une deuxième 
note vous est alors jouée. Il vous faut la reconnaître en plaçant correcte- 
ment une note sur la portée. Pour cela, vous déplacez la dernière note jaune 
dessinée par le programme (à un endroit toujours inexact) à l'aide des 
touchès ” ? ” et ‘”’ | ‘’. Quand vous pensez l'avoir bien située, vous 
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appuyez sur la barre d'espace. Si votre réponse est correcte, vous marquez 
un point. Dans le cas contraire, votre note est effacée tandis qu'un ‘’zap” 
retentit et la note correcte est dessinée. 


Le programme va alors vous faire deviner une troisième note, en vous 
faisant entendre à nouveau les deux notes qui figurent déjà sur la portée. A 
chaque fois, la note jouée se signale en “rougissant”. 


Le jeu se poursuit ainsi, de note en note, de devinette en devinette. Toute- 
fois, pour que tout cela ne devienne pas trop lent, à partir de la sixième 
note, le programme se contente de vous faire entendre les cinq dernières 
notes seulement. Cela devrait vous fournir une préparation sonore suffi- 
sante pour trouver la dernière note entendue. Si ce n'était pas le cas, vous 
verrez au paragraphe 3, comment modifier cela. 


Le programme vous propose 27 niveaux de jeu, grâce à deux paramètres 
que vous pouvez choisir: 


a) Le domaine dans lequel vont évoluer les notes. Trois options possibles : 


1 — de “do” à sol”: cela fait donc 5 notes en tout: do, ré, mi, fa et sol. 
2 — de ‘do’ à “do”: cela correspond donc à 8 notes d'un octave. 
3 — de “do” à “la”: il faut comprendre du do d'un octave au la de 


l'octave supérieur. Cela correspond donc à 13 notes. 


b) L'intervalle séparant deux notes successives. Il peut varier de un à neuf. 


A titre d'exemple, si vous choisissez la valeur 1, la note émise après un mi 
ne pourra être que ré ou fa. 


Par contre, si vous choisissez la valeur 3, la note émise après un mi pourra 
être: ré, do, fa ou sol. 


Le programme affiche en permanence, le numéro de la note à deviner 
(nombre de notes déjà jouées), votre score (nombre de notes reconnues) et 
le meilleur score du niveau. (Voir photo 8 hors texte : Vue de l'écran pen- 
dant le déroulement du jeu). 
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2. Le programme 


2000 
2010 
2020 
2030 
2040 
3000 
3010 
3020 
3030 
4000 
4020 


REM ####H#N#UNXX DICTEE MUSICALE 444464646066 de De DE NEED NE EEE EN 
REM 

GOSUB 9000 

REPEAT 


GOSUB 8000 
NTæis NN=ir CO=12: GOSUB 3000: CD=1: GOSUB 5000 
NJ(1)=1i 
FOR Ne2 TO NX 
GOSUB 2000 
NDeN-5: IF ND<1 THEN ND=1 
FOR NN=ND TO N-1 
GOSUB 3000 
NTæNJ (NN) 
CD=31 COsI31 GOSUB 50001 GOSUB 4000 
CD=31 CO=12: GOSUB 5000 
NEXT NN 
CXsis IF RND(1)>0.5 THEN CX=-1 
NT=NJ(N-1)+CX#INT(RND(1)#IM+1) 
IF NT<1 OR NT>NM THEN 260 
NJ (NN) =NTs NNeN 
GOSUB 4000 
GOSUB 6000 
IF NTeNJ(N) THEN 6Ce8C+1: GOSUB 2000 
IF NT<>NJ(N) THEN ZAP 
CO=12: NTeNJ(N)s CD=1: GOSUB 5000 
NEXT N 
IF SC>MS(DM,IM) THEN MS(DM,IM)26C 
FOR K=i TO 22: PRINT CHR$#(9)3;1 NEXT K 
PRINT'rejouez vous (O/N)"; 


1 GET R$:1 GET R$ 

UNTIL R$<>"0" 

END 

REM ---- SP MISE À JOUR ET AFFICHAGE SCORE -------- 
PRINT "  "ySTR#(N-1)32 IF N-1<10 THEN PRINT " "} 
PRINT " MySTR$(SC) 34 IF SC<10 THEN PRINT " "; 
PRINT " M STR$(MS(DM,IM))3CHR$# (13); 

RETURN 

REM ---- GP CALCUL X ET YB POUR LA NOTE NUMERO NN ------ 
YB=Yi: X=K1+(NN-1) #DX 
IF K)oaX2-DX THEN YBeY21 X=X-(X2-X1) 

RETURN 

REM ---- GP GON NOTE NT ------------------- 
MUSIC 1,0C(NT) ,NO(NT),0 
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4030 
4040 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5100 
5110 
5120 
5130 
5140 
5200 
5210 
3220 
5230 
5240 
5300 
3310 
5320 
5340 
3400 
5410 
5420 
5430 
5500 
59510 
5515 
3920 
39530 
39540 
53930 
3360 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
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PLAY 1,0,1,15001 WAIT 40 


RETURN 
REM ---- GP AFFICHAGE, EFFACEMENT DE NOTE --------- 
Ys=YB-(NT-1)#(DT+ET) /2+ET+1 


IF CD=1 THEN GOSUBS100: GOSUB5200: GOSUBS53001 GOSUBS400: RETURN 
IF CD=2 THEN GOSUB 51001 GOSUB 52001 GOSUB 53001 RETURN 

IF CD=3 THEN GOSUB 52004 RETURN 

IF CD=4 THEN GOSUB 5500: RETURN 

RETURN 

REM 

REM CURSET X+6,Y-7,04 FILL 8,1,16 

IF NT<>3 AND NT<>5 AND NT<>7 AND NT&>9 AND NT<>11 THEN RETURN 
CURGSET X+6,Y-4,01 FILL 2,1,16+128 

RETURN 

REM 

CURSET X-6,Y-7,0: FILL 8,1,C0 

IF NTC)3 AND NTC)5 AND NTC)7 AND NT<29 AND NT<)11 THEN RETURN 
CURSET X-6,Y-4,01 FILL 2,1,C0+128 

RETURN 

REM 

CURSET X,Y-7,01 CHAR CN,0,1 

IF NT<)3 AND NT{)5 AND NT<)7 AND NT<)9 AND NT<>11 THEN RETURN 
RETURN 

REM 

IF NT<=7 THEN CURGET X,Y-4,14 DRAW 0,-20,1 

IF NT>7 THEN CURSET X+5,Y-4,11 DRAW 0,20,1 

RETURN 

REM 

CURSET X,Y-7,0: CHAR CN,0,0 

CURBET X-6,Y-7,01 FILL 8,1,16 

IF NTC)3 AND NTC)5 AND NTC)7 AND NT<)9 AND NT<>11 THEN RETURN 
CURSET X-6,Y-4,01 FILL 2,1,16+128 

CURSET X,Y-4,1: DRAW 6,0,1 

CURSET X,Y-3,11 DRAW 6,0,1 

RETURN 

REM ---- GP LECTURE NOTE PROPOSEE -----------"-"" 

60SUB 3000 

CO=121 NTeNJ(N-1) 

CD=21 GOSUB 5000 

DP=PEEK(W208): IF DP=#84 THEN 6110 

NE=NT+ (DP=#9C) # (NTCNM)-(DP=#B4)#(NT>1) 

IF NE=NT THEN 6040 

CD=4: GOSUB 5000 

NTeNEs CO=I21 CD=21 GOSUB 5000 

GOTO 6040 

REM 

CD=41 GOSUB 5000 

RETURN 


8000 
8010 
8020 
8028 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8185 
8190 
8195 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9125 
9130 
9140 
9150 
9160 
9170 


REM ---- GP INITIALISATION D'UNE PARTIE --------- 
TEXT: CLS: PLOT 8,2," DICTEE MUSICALE" 
PLOT 3,7,"3 domaines possibles" 

PLOT 5,8," 1 : DO a SOL" 

PLOT 5,9," 2 «4 DO a DO" 

PLOT 5,10," 3 5 DO a LA" 

PLOT 3,12,"quel domaine choisissez vous?" 
GET R$a IF R$<"i" OR R$>"3" THEN 8970 
PLOT 33,12,R#$1 DM=VAL(R#) 

PLOT 3,16,"intervalle maximum entre" 

PLOT 3,17,"deux notes (1 a 9)?" 

GET R$u IF R$<"i" OR R$>"9" THEN 8110 
PLOT 24,17,R$: IM=VAL(RS#) 

WAIT 200 

CL6r PGx0s IGm7-PGs 12231 13=1 

HIRES: PAPER PGs INK IG 

YD=Yis 6C=0 

FOR I=i TO 2 

4 FOR Y=YD-DT-ET TO YD-5#(DT+ET) STEP -(DT+ET) 
1 FOR K=0 TO ET-i 

45 CURSET X0,Y-K,0: DRAW X2-X0,0,1 

1 NEXT K 

4 NEXT Y 

1 YD=Y2 

NEXT I 

PRINTI PRINT" NOTE SCORE M-SCORE"}CHR# (13) 
NM=51 IF DMz2 THEN NM=8 

IF DMe3 THEN NMz13 

RETURN 

REM ---- INITIALISATIONS DU JEU -------------- 
POKE #26A,10 

CN=641 AMz46080+B%CN 

DATA 30,63,63,63,63,63,63,30 

FOR I=0 TO 7 

4 READ XX: POKE AM+I,XX 

NEXT I 

DT=81 ETma21 D\=12 

PA=4y IN=6: PAPER PAr INK IN 

XO0=12: X1=241 X2=234 

Yi=88: Y2:168 

NX=2#INT((X2-X1)/DX) 

DIM NJ(NX) ,NO(13),0C(13) 

DIM MS(3,9) 

DATA 1,3,5,6,8,10,12,1,3,5,6,8,10 

FOR I=i TO 13: READ NO(I)u NEXT I! 

DATA 3,333 3 334545454544 

FOR I=i TO 131 READ OC(I)1 NEXT I 

RETURN 
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3. Si vous souhaitez personnaliser ce programme 


1. Pour que les notes soient jouées sur un autre octave 


Modifiez les valeurs de l'instruction DATA de la ligne 9150, en y plaçant 
sept fois le numéro de l'octave voulu (de O à 5), suivi de six fois le numéro 
de l'octave suivant. 


Exemples: 
9150 DATA 2,2,2,2,2,2,2,3,3,3,3,3,3 

jouera les notes un octave plus bas que le programme actuel. 
9150 DATA 4,4,4,4,4,4,4,5,5,5,5,5,5 


les jouera un octave plus haut. 


2. Si vous trouvez que le jeu est trop lent ou trop rapide 


Vous pouvez modifier la durée de chaque note, en remplaçant, en 4030, la 
valeur 40 par un nombre de votre choix. Par exemple: 


4030 PLAY 1,0,1,1500: WAIT 10 


jouera environ deux fois plus vite. 


3. Pour modifier le nombre de notes jouées avant la nouvelle note 
à deviner 


Remplacez, en 195, dans ND = N — 5, le nombre 5 par une valeur de votre 
choix. 


Ainsi: 


195 ND=N-1: IF ND<1 THEN ND=1 
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vous jouera une seule note avant la note à deviner. 
195 ND=N-10: IF ND <1 THEN ND=1 


vous en jouera dix (du moins à partir du moment où il y aura déjà dix notes 
de représentées). 


Si vous souhaitez que toutes les notes soient rejouées avant la note à devi- 
ner, remplacez 195 par: 


195 ND=1 


4. Description du programme 


a) Techniques utilisées, décrites en annexe 


— Hasard. 

— Création de caractères graphiques. 
— Lecture rapide du clavier. 

— Configuration clavier/écran. 


b) Le programme principal (100-390) 


120 appelle le sous-programme dl'initialisation du jeu. 


130 et 380 répètent les instructions 140 à 370 (déroulement d'une partie) 
jusqu'à ce que vous précisiez que vous ne souhaitez plus rejouer: 
140 appelle le sous-programme d'initialisation d'une partie. 
150-170 dessinent la première note et mettent son numéro (1) dans 
le tableau des notes déjà jouées. 

180 et 330 répètent 33 fois les instructions 190 à 320 qui proposent, 
à chaque fois, une nouvelle note à découvrir: 
190-250 font entendre les cinq dernières notes (ou toutes les notes 
lorsqu'il y en a moins de cinq) en les faisant ‘’rougir”. 
260-290 choisissent au hasard une nouvelle note (en tenant 
compte des limitations imposées par votre choix de domaine et 
d'intervalle) et rangent sa valeur dans NJ. 


295 fait entendre la note choisie. 


300 appelle le sous-programme "lecture note proposée ” qui place 
votre réponse dans NT. 


310-315 analysent votre réponse; actualisent le score si elle est 
exacte, font entendre un “’zap” dans le cas contraire. 


320 affiche définitivement la note correcte (celle qui vous avez 
proposée, correcte ou non, a été effacée par le sous-programme 
‘lecture note‘). 


340-370 actualisent le meilleur score et vous demandent si vous 
souhaitez rejouer. 


c) Le sous-programme d'initialisation du jeu (9000-9170) 


9010 supprime le bip du clavier et le curseur d'écran. 
9020-9060 fabriquent le caractère graphique représentant une note. 


9070 fixe la distance entre deux traits de portée, l'épaisseur du trait et la 
distance entre deux notes successives. 


9080 fixent les couleurs de l'écran en mode TEXT. 
9090-9100 déterminent les emplacements des deux portées. 
9110 calcule le nombre total de notes qui seront présentées. 


9120-9160 réservent les tableaux et fixent les numéros des notes et le 
numéro d'octave correspondant. 


d) Le sous-programme d'initialisation d’une partie (8000-8260) 
8010-8130 passent en mode ‘’TEXT”’ et vous font choisir votre niveau de 
jeu (domaine, intervalle). 


8140-8150 effacent l'écran et passent en mode ‘’HIRES”" (graphique 
haute résolution), en fixant les couleurs de ce mode. 


8155 initialise le score. 
8160 initialise le score. 
8170-8220 tracent les deux portées. 


8240-8250 déterminent la note la plus haute, compte-tenu de l'intervalle 
choisi. 


e) Le sous-programme 3000-3030 


Il calcule pour la note de rang NN: 
— l'abscisse correspondante, 
— l'ordonnée de la base de la portée correspondante. 


f) Le sous-programme d'affichage et d'effacement de note 
(5000-5560) 


Il réalise plusieurs fonctions déterminées par la valeur de la variable CD. 
CD=1 : affichage d'une nouvelle note avec queue, 
CD=2 : affichage d'une nouvelle note sans queue, 
CD=3 : changement de couleur d'une note, 
CD=4 : effacement d'une note (sans queue). 


La hauteur de la note figure dans NT, son abscisse dans X. Le cas échéant, 
la couleur concernée figure dans CO. 


5010 calcule l'ordonnée de la note. 


5020-5050 réalisent chacune des fonctions par enchaînement de sous- 
programmes élémentaires: 


5100-5140 rétablit la couleur de fond, à droite de la note. 
5200-5240 fixe la couleur d'une note. 

5300-5340 dessine une note. 

5400-5430 dessine la queue. 

5500-5560 efface une note. 


g) Le sous-programme de lecture de la note proposée (6000-6120) 


6010-6030 affichent une note provisoire (sans queue). 


6040-6090 examinent le clavier et déplacent la note provisoire en fonction 
des touches enfoncées jusqu'à ce que vous appuyiez sur la barre 
d'espace. 


6110 efface la note provisoire. 


h) Le sous-programme son (4000-4040) 


Il émet un son correspondant à la note de hauteur NT. 
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5. Liste des variables 


CN 
DT 


ET 
DX 
PA 


IN 

X0O,X2 

X1 

Y1,Y2 

NX 

NJ(NX) 
NO(13),00(13) 


MS(3,9) 
DM 

IM 

PG 


NT 
NN 
CO 


CD 
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code ASCII du caractère représentant une note 


nombre de ‘points élémentaires" séparant deux lignes 
d'une portée 


épaisseur des traits des portées 
écart entre les abscisses de deux notes successives 


couleur de fond, en mode TEXT (choix des niveaux et 
bande inférieure de l'écran) 


couleur d'encre en mode TEXT 

abscisses de début et de fin d'une portée 

abscisse de la première note 

ordonnées de base des deux portées 

nombre total de notes 

tableau contenant les hauteurs des notes déjà jouées 


tableaux contenant les codes et octaves des treize 
hauteurs de note possibles. 


tableau contenant le meilleur score de chaque niveau 
domaine choisi (1 à 3) 

intervalle maximum choisi (1 à 9) 

couleur de fond utilisée en HIRES 

couleur d'encre utilisée pour le tracé de la portée 
couleur des notes 

couleur d'une note pendant qu'elle est ‘jouée ” 


hauteur de la note la plus haute, compte tenu de l'inter- 
valle choisi 


hauteur de note courante 
numéro de note courante 


couleur de note, utilisée par le sous-programme 
“affichage et effacement” 

précise au sous-programme ‘affichage et effacement” la 
fonction choisie (de 1 à 4) (voir description de ce sous- 
programme) 


N numéro de la dernière note proposée 


YB ordonnée de base de la portée correspondant à une note 
courante 

X abscisse d'une note courante 

SC score 


Variables auxiliaires 


AM XX I R$ Y YD 
K  CX 


179 


Annexe 1 
Hasard 


La fonction RND permet, lorsqu'on l'utilise avec un argument supérieur ou 
égal à un, d'obtenir un nombre tiré au hasard entre O (compris) et 1 (exclu). 
Bien qu'aucun de nos jeux ne soit ce que l’on a coutume d'appeler des 
"jeux de hasard”, il se trouve quand même que le hasard y intervient 
souvent. C'est notamment le cas lorsqu'il faut choisir au hasard la position 
d'un objet sur l'écran, une lettre de l'alphabet, etc... 


Dans tous les cas, le problème à résoudre est le suivant : choisir au hasard, 
une valeur entière comprise entre deux valeurs données p et n. 


Commencons par le cas où p = 1, autrement dit, lorsque l'on désire une 
valeur entière comprise entre 1 et n (1 et n compris): 













Expressions Valeur correspondante 
RND(1) entre O (compris) et 1 (exclu) 

n # RND(1) entre O (compris) et n (exclu) 
n # RND(1) + 1 entre 1 (compris) et n+1 (exclu) 


INT(n *# RND(1) + 1) entière entre 1 (compris) et n (compris) 





180 


Par exemple, l'expression: 


INT(6*RND(1)+1) 


fournira un nombre entier compris entre 1 et 6. 


Voyons maintenant le cas plus général évoqué précédemment : obtenir un 
nombre entier compris entre p (compris) et n (compris): 





Expressions Valeur correspondante 















entre O (compris) et 1 (exclu) 

entre O (compris) et n—p+1 (exclu) 
entre p (compris) et n+1 (exclu) 
entier entre p (compris) et n (compris) 


RND(1) 
(n—p+1) * RND(1) 

p + (n—p+1) * RND(1) 

INT(p+ (n—p+1)»* RND(1) 


La dernière expression peut également s'écrire : 
p+INT((n—-p+1)xRND(1)) 


Celle-ci est fréquemment utilisée dans nos programmes. Ainsi pour tirer 
dans X une coordonnée d'écran comprise entre deux limites X1 et X2, nous 
écrivons: 


X=X1+INT(RND(1)x(X2-X1+1) 


De même pour tirer dans C, le code ASCII d'une lettre comprise entre À 
(code 65) et Z (code 90) nous écrivons: 


C=65+INT(RND(1)+26) 


(puisque 90 — 65 + 1 — 26) 
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Annexe 2 


Création de caractères 
graphiques 


Pour bien comprendre la manière de fabriquer des caractères graphiques, il 
est nécessaire de savoir comment l'ORIC réalise les caractères que vous 
voyez apparaître sur votre écran. 


1. Comment l’ORIC fabrique-t-il les caractères ? 


Chaque caractère est affiché à l'écran sur un quadrillage de 8 x 6 cellules 
élémentaires. Chaque cellule peut être soit de la couleur de fond (qu'ici 
nous supposerons blanc) soit de la couleur d'encre (supposée ici noire). 
Voici, par exemple comment est représentée la lettre C: 
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Pour vous en convaincre, il vous suffit d'examiner votre écran de très près 
(ou de regarder notre dessin de loin!). 





Comment l'ORIC conserve-t-il ce dessin en mémoire ? Il le code sur huït 
octets consécutifs représentant chacun une ligne du quadrillage. Dans 
chaque octet, on trouve le nombre binaire obtenu en considérant qu'une 
cellule blanche correspond à O et qu’une cellule noire correspond à 1. Ainsi, 
pour notre lettre C, nous obtenons: 


——— 





; eus Valeur décimale 
Ligne Nombre binaire correspondante 

1 011100 28 

2 100010 34 

3 100000 32 

4 100000 32 

5 100000 32 

6 100010 34 

7 011100 28 

8 000000 O 








——————_—_—————…——— "À*"  —  — . _ —_____————.—————.————.————_—_— {° ———.__—_… ——__—_———…—…————….——————— 


A quel emplacement de la mémoire se trouvent ces huit octets? Les 
descriptions de chacun des 128 caractères (codes ASCII O à 127) sont 
rangées suivant l'ordre des codes ASCII, à partir de l'adresse 46080 (ou 
13312 sur l'ORIC 16K). Autrement dit le caractère de code ASCII O est 
décrit par les octets d'adresse 46080, 46081, …, 46087. Le caractère 
de code ASCII 1 est décrit par les octets d'adresse 46088, 46089, …, 
46095 etc. 
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D'une manière générale, la description du caractère de code x occupe huit 
octets consécutifs à partir de l'adresse: 


46080+8xx 


A titre d'exemple, vous pouvez retrouver les huit valeurs permettant de 
fabriquer la lettre C à l'aide de ce petit programme: 


100 X=67 

110 FOR 1-0 TO 7 

120 PRINT PEEK(46080+8xX +1) 
130 NEXT | 


2. Comment créer vous-même de nouveaux caractères ? 


Il vous suffit tout simplement de modifier, avec l'instruction POKE, le 
contenu des octets contenant la description de caractères. C'est cette 
méthode qui nous a permis de créer, dans la plupart des jeux, des 
graphismes tels que: balle, boule, champignon, missile, robot, soucoupe, 
etc Voici comment procéder: 


a) Dessiner votre motif dans un quadrillage 8 x 6 comme nous l'avons fait 
pour la lettre C. 


b) Écrire la valeur binaire correspondant à chaque ligne, puis sa valeur 
décimale. 


c) Choisir un caractère non utilisé dans votre programme (par exemple @ 
ou © …) et regarder son code dans la table ASCII. 


d) Entrer les huit valeurs définies en b, par POKE, aux adresses obtenues 
par la formule précédente. 


Voici un sous-programme qui ‘’redéfinit’’ le caractère dont le code ASCII 
est contenu dans la variable C, à l'aide de huit valeurs supposées placées 
en DATA”. 
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9500 REM ——-—— SP CREATION CAR GRAPHIQUES ———— 
9510 AM—46080+8+C 

9520 FOR 1-0 TO 7 

9530 : READ XX: POKE AM+I,XX 

9540 NEXT I 

9550 RETURN 


C'est là le sous-programme que vous retrouverez dans la plupart des jeux 
où l'on utilise des caractères graphiques. 
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Annexe 3 
Lecture rapide du clavier 


Les instructions usuelles de Basic ne sont pas adaptées à la conduite de 
mobiles par l'intermédiaire du clavier (déplacement d'une raquette, d'une 
voiture, d'une base de tir, ….). Dans nos programmes, nous avons employé, 
Lorsque cela le nécessitait, d'autres méthodes que nous allons décrire ici. 


1. Introduction 


En Basic, il existe trois manières de lire le clavier: 
* INPUT lit une chaîne de caractères en l'affichant à l'écran en même 


temps que vous la composez. Son action se termine lorsque vous frappez la 
touche “return”. Cette instruction qui ‘’bloque”’ le programme tant que 
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vous n'avez pas fini de frapper votre message, est inutilisable pour 
commander des déplacements. 


* GET attend qu'un caractère soit frappé et le range dans la variable 
suivant le mot GET. Là encore le programme est bloqué tant que vous ne 
tapez pas un caractère. C'est d'ailleurs cette instruction que nous avons 
employée, de préférence à INPUT lorsque le programme attendait une 
réponse brève (un chiffre, O/N, ….). 


* KEY$ est une fonction qui se contente d'examiner si une touche du 
clavier est enfoncée. Si oui, elle restitue le caractère correspondant, sinon 
la chaîne vide. En apparence elle devrait permettre de résoudre notre 
problème de commande de mobile puisque, contrairement aux deux 
instructions précédentes, elle ne bloque pas le programme. Malheureuse- 
ment, une imperfection de taille apparaît. Pour vous en convaincre, tapez 
ce petit programme: 


100 FOR 1-1 TO 25 

110 A$=KEY$: IF A$—”’  ”’ THEN 110 
120 PRINT A$ 

130 NEXT I 


Lancez le (RUN). Tant que vous n'appuyez sur aucune touche, il ne se 
passe rien; l'instruction 110 boucle sur elle-même. Si vous pressez, par 
exemple la touche Z, le programme vous écrit immédiatement Z. Mais si 
vous laissez cette touche enfoncée en permanence, vous découvrirez qu'il 
s'écoule un temps assez long avant l'apparition du second Z, puis les lettres 
suivantes arrivent ensuite à un rythme régulier et plus rapide. 


En fait, vous obtenez 1e même phénomène que lorsque vous tapez 
plusieurs fois la même lettre sous l'effet de la ‘répétition automatique”. 


Nous n'entrerons pas dans le détail de fonctionnement de KEY$: nous 
retiendrons seulement qu'elle est tributaire du rythme de la répétition auto- 
matique. Elle est donc inutilisable pour ce qui nous préoccupe. Notez bien 
que l'on rencontre de nombreux jeux Basic (y compris sur cassette) qui se 
contentent de cette fonction. Le déplacement d'un objet à l’aide des 
touches fléchées est très désagréable puisqu'irrégulier. Si vous disposez 
déjà de tels jeux, il vous sera facile d'y adapter l'une des techniques que 
nous vous proposons. 
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2. Une première méthode: Utilisation des adresses 768 et 
735 


On constate que: 


l'octet 768: prend la valeur 176 lorsqu'aucune touche n'est enfoncée et 
une valeur différente dans le cas contraire; 


l'octet 735: prend la valeur: 


136 quand + est enfoncée 

137 quand - est enfoncée 
138 quand | est enfoncée 
139 quand ? est enfoncée 
141 quand return est enfoncée 
etc... 


Cette valeur subsiste, même quand la touche correspondante a été 
relâchée, jusqu'à ce que vous pressiez une nouvelle touche. C'est pour 
cette raison que l'examen de l'octet 768 est, en général, nécessaire. 


Voici, à titre d'exemple, un programme qui permet de déplacer horizontale- 
ment la lettre A” à l'aide des touches >" et "+": 


100 X=10: Y=10 

110 PLOT X,Y,''A" 

120 IF PEEK(768)=176 THEN 120 
130 CL=PEEK(735)—-135 

140 PLOT X,Y,32 

150 X=X+(CL=1)-(CL=2) 

160 GOTO 110 


L'instruction 150 mérite quelques explications. Sur ORIC une expression 
telle que CL — 1 prend la valeur — 1 quand l'égalité mentionnée est 
vraie, la valeur O dans le cas contraire. Autrement dit X diminue de 1 quand 
CL vaut 1 (c'est-à-dire quand l'octet 735 vaut 136, ce qui correspond à 
+") et X augmente de 1 quand CL vaut 2 (”"-"). 


Si vous exécutez, ce petit programme, il est probable que vous amènerez 
votre lettre À sur l’un des bords de l'écran et que vous obtiendrez le 
message d'erreur: 


ILLEGAL QUANTITY ERROR IN 110 
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En effet, nous n'imposons pas de limite à la valeur de X. Nous pouvons le 
faire, soit en ajoutant des instructions de test, soit simplement, en utilisant 
la technique déjà décrite en remplaçant la ligne 150 par: 


150 X=X—(CL=1)x(X>1)+(CL=2)x(X <38) 


Le principal mérite de cette première méthode est que les valeurs corres- 
pondant aux quatre touches fléchées sont consécutives (736 à 739). Cela 
peut être fort utile lorsque l'on souhaite, par exemple, sélectionner un 
élément d'un tableau en fonction de cette valeur (voir: Karting). 


Une seconde méthode: Utilisation de l’adresse # 208 
(soit 520 en décimal) 


On constate que cet octet prend la valeur: 


#38 lorsqu'aucune touche n'est enfoncée 
ÆAC lorsque la touche + est enfoncée 
#BC lorsque la touche — est enfoncée 
#B4 lorsque la touche {À est enfoncée 
#9C lorsque la touche # est enfoncée 


Ici, dès que la touche est relâchée, l'octet 4208 reprend la valeur #38. Par 
rapport à la méthode précédente, cette dernière présente l'avantage de ne 
nécessiter la consultation que d'un seul octet. Par contre, les valeurs 
obtenues ne sont plus consécutives. 


Voici, à titre d'exemple, comment adapter cette méthode à notre 
programme de déplacement de lettre: 


100 X=10: Y=10 

110 PLOT X,Y,''A” 

120 CL=PEEK(#208) : IF CL=#38 THEN 120 
140 PLOT X,Y,32 

150 X=X—(CL= #AC)x(X2>1)+(CL= 7% BC)x(X <38) 
160 GOTO 110 


D'une manière générale, c'est cette méthode que nous avons utilisée dans 
nos programmes à chaque fois que la précédente ne s'imposait pas. 
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Annexe 4 
SCROLL 


Certains micro-ordinateurs possèdent une instruction Basic réalisant le 
défilement d'écran (en anglais SCROLL). Sur votre ORIC, vous obtenez 
automatiquement un défilement (vers le haut), dès que l'écran est rempli. 
Si vous faites une liste d'un programme, vous avez un défilement quasi- 
continu. 


Ce défilement vers le haut peut s'obtenir également manuellement en 
déplaçant le curseur jusqu'en bas de l'écran et en conservant la touche 
" { ”enfoncée. Vous pouvez, à l'inverse, obtenir un défilement vers le bas, 
en déplaçant le curseur jusqu'en haut de l'écran et en conservant la touche 
1” enfoncée. 


Pour réaliser ce défilement par programme, il suffit de savoir que: 


PRINT CHR$(10): réalise la même chose que l'appui sur la touche | 
PRINT CHR$(11): réalise la même chose que l'appui sur la touche | 
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Bien entendu, au début du programme, il faut faire en sorte que le curseur 
soit bien positionné, suivant le cas: 


— en haut de l'écran (ce qui est le cas après l'instruction CLS), 


— en bas de l'écran. Il suffit d'imprimer” suffisamment de caractères 
CHR$(11) ou même simplement d'imprimer 26 lignes blanches: 


FOR 1=1 TO 26: PRINT: NEXT I 


L'avantage considérable de cette méthode réside dans la simulation d'un 
mouvement d'ensemble, sans qu'il soit nécessaire de programmer le dépla- 
cement de chacun des éléments. On l'emploie généralement lorsqu'un 
petit nombre d'objets doivent rester immobiles par rapport à l'ensemble. 
Dans ce cas, les objets fixes sont effacés avant le défilement pour être 
redessinés immédiatement après. 
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Annexe 5 


Écriture directe en mémoire 
d’écran 


1. Introduction 


L'introduction PLOT ne peut être employée qu'avec des abscisses variant 
entre O et 38 et des ordonnées variant entre O et 26. Cela signifie qu'elle 
permet d'utiliser 39 colonnes et 27 lignes. Or, la totalité de l'écran com- 
prend 40 colonnes et 28 lignes. 


Effectivement, la première ligne de l'écran n'est pas accessible par PLOT. 
C'est d'ailleurs là que Basic place certains messages: CAPS, searching, 
loading, etc. Notez, au passage, que cette ligne n'est pas soumise au 
“défilement” d'écran (scroll); cela se remarque, notamment quand vous 
listez un programme. 


Quand à la première colonne,elle est utilisée par Basic pour définir la couleur 
de chaque ligne de l'écran (PAPER et CLS agissent sur cette colonne). Par 
contre, la couleur d'encre est placée par Basic (INK) en seconde colonne, 
accessible à PLOT puisque correspondant à l'abscisse zéro. 
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Or, il est intéressant de pouvoir accéder à la première colonne lorsque, par 
exemple l'on désire obtenir plusieurs zones horizontales de couleurs diffé- 
rentes. Certes, l'attribut de couleur peut toujours être écrit par PLOT en 
seconde colonne (abscisse O pour PLOT) mais, dans ce cas, la première 
colonne a une couleur différente du reste de l'écran; cela n’est pas toujours 
esthétique. 


De même l'accès à la première ligne présente un grand intérêt lorsque l'on 
utilise une technique de “scroll” (défilement d'écran). En effet, c'est la 
seule ligne où l'on peut faire figurer des informations qui ne risquent pas de 
disparaître après défilement. 


2. La mémoire d’écran 


En fait la solution à ces problèmes devient extrêmement simple dès que 
l'on sait que l'image apparaissant à l'écran est stockée dans la mémoire 
de l'ORIC. Elle occupe les adresses 48000(#BB80 en hexa) à 49119 
(ÆBFDF en hexa) sur l'ORIC 48K et les adresses 15232(43B80) à 16351 
(#38DF) sur l'ORIC 16K. Chaque octet correspond à une position écran 
et les informations sont stockées ligne par ligne. 


Ainsi 48000 correspond à la première position de la première ligne de 
l'écran. 


Voici un petit schéma récapitulatif (les hachures correspondent aux zones 
d'écran non accessibles par PLOT). 








adresse adresse ordonnée abscisse utilisée par PLOT 
mémoire mémoire utilisée 
48K 16K par PLOT 
48000 15232 
48040 15272 (eo) 
48080 15312 1 
49040 16272 25 





49080 16312 26 7 
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Pour écrire dans les zones hachurées, il vous suffit donc d'utiliser l'instruc- 
tion POKE. Bien sûr, rien ne vous empêche d'employer POKE pour écrire 
dans n'importe quelle autre partie de l'écran. 


3. Exemple: plusieurs couleurs de fond 


Pour obtenir un fond jaune avec les trois premières lignes en rouge, nous 
pouvons procéder ainsi: 


100 PAPER 3 

110 FOR 1-1 TO 3 

120 : POKE 48000+40%1,17 
130 NEXT I 


4. Exemple: affichage en ligne supérieure 


e Pour effacer cette ligne (ce qui fera du même coup disparaître le mot 
"CAPS"'), vous pouvez utiliser ces instructions : 


100 AM—48000 

110 FOR 1-0 TO 39 
120 : POKE AM#+1,32 
130 NEXT | 


e Pour écrire une chaîne dans cette ligne, il faudra l'écrire lettre par lettre. 
Voici un petit sous-programme qui affiche, à partir de la colonne IC de la 
ligne supérieure, la chaîne contenue dans CHS$: 


6000 REM affichage ligne supérieure 

6010 AM=—48000 

6020 FOR 1=1 TO LEN(CHS) 

6030 : POKE AM+1+1C—1,ASC(MID$(CH$,1,1)) 
6040 NEXT I 

6050 RETURN 


Essayez-le en exécutant, en mode direct: 


1C=1 :CH$="" BONJOUR” :GOSUB 6000 
1C=10 :CH$="" MADAME" :GOSUB 6000 
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Annexe 6 
Configuration clavier/écran 


Vous savez que l'on peut supprimer le “bip” du clavier en tapant simple- 
ment ‘Controle F” (c'est-à-dire en maintenant la touche  CTRL" enfoncée 
tandis que l'on presse la touche F). Cette même action rétablit le “bip”. On 
a un fonctionnement dit'’à bascule” puisqu'une même commande fait 
basculer d'un état à l'autre. 


De la même façon ‘Contrôle Q” fait apparaître ou disparaître le curseur 
de l'écran (carré clignotant). 


Comment réaliser ces actions par programme ? Nous vous proposons deux 
solutions : 


Solution 1: Utiliser l'instruction PRINT 


PRINT CHR$(6); a le même effet que ’’controle F”’ 
PRINT CHR$(17); a le même effet que ’’controle Q"’ 


Ainsi vous pouvez placer ces deux instructions au début d'un programme 
pour supprimer le bip et le curseur. |l faudra toutefois penser à les exécuter 


en fin de programme pour retrouver l'état initial. 
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Cette méthode présente un inconvénient dû à ce que les effets sont "à 
bascule”. Par exemple, si votre programme est interrompu, vous serez 
dans l'état ‘’bip et curseur supprimés”. Si vous relancez alors le 
programme, les instructions PRINT... vous redonneront le bip et le curseur. 


La solution suivante permet d'éviter cet inconvénient : 


Solution 2: 


L'état du clavier et de l'écran est conservé par ORIC dans l'octet d'adresse 
#26A. Voici sa signification, bit par bit: 
















Valeur État correspondant à 


standard 





curseur supprimé curseur visible 


vidéo supprimée vidéo active 


clavier muet (bip 
supprimé) 


pas d'ESC 
40 colonnes 
double hauteur 


clavier sonore (bip) 


ESC actif 
38 colonnes 
simple hauteur 


Il faut noter que lorsque vous mettez votre ORIC sous tension, cet octet 
contient la valeur 3. Pour supprimer le bip du clavier, il faut mettre à 1 le bit 
3 et pour supprimer le curseur, il faut mettre à O le bit 1. Il faut, bien 
entendu, laisser les autres bits inchangés. La valeur à placer (par POKE) est 
donc 10 (2+8). Pour cela, il suffira d'écrire: 


POKE # 264,10 


Si, à la fin du programme, vous souhaitez revenir à l'état initial, vous 
écrirez: 


POKE # 26A,3 
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L'avantage de cette méthode est que, quel que soit l'état initial, le résultat 
de POKE #26A,10 conduira à la suppression du bip et du curseur. Ce 
n'était pas le cas de la première méthode comme nous l'avons vu. 


REMARQUE: Nous vous avons donné la signification de chacun des bits de 
l'octet Z26A bien que seuls les bits O et 3 nous aient intéressés ici. Ce sont 
les seuls que nous avons été amenés à utiliser dans les programmes de 
jeux de ce manuel. 
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Annexe 7 
Poignées de jeu 


1. Introduction 


Beaucoup des jeux proposés dans ce manuel peuvent utiliser une poignée 
de jeu (aucun ne nécessite deux poignées). Pour cela, il est nécessaire 
d'entrer en mémoire l'un des deux programmes proposés par la note 
accompagnant les poignées. Il s'agit de programmes Basic dont l'exécution 
provoque l'écriture d'instructions en langage machine dans un emplace- 
ment disponible de la mémoire. Ceci peut, éventuellement, n'être réalisé 
qu'une seule fois pour différents jeux. En effet, le chargement d'un 
programme de jeu (par CLOAD) ne détruira pas les instructions en langage 
machine. Seul le programme Basic ayant servi à les fabriquer sera effacé, 
ce qui n'a pas d'importance. Par contre, ces instructions disparaîtront 
(comme tout le reste de la mémoire) lorsque vous mettrez votre ORIC hors 
tension. 


Nous vous conseillons de conserver ces deux programmes sur cassette afin 
d'éviter d'avoir à les taper plusieurs fois. 
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Les deux paragraphes suivants expliquent le fonctionnement des 
programmes proposés. Leur lecture n'est pas indispensable. 


2. Premier programme 


Nous le nommerons ‘ MANETTE 1” 


99 DATA #49 


196 
145 
116 
115 
126 

TE 

at 
156 
46 
219 
224 
229 


236 


Les 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


#AD,#01,#03,#48 

#AD, #03, 403,448, #09, #CO 

#BD, #03, #03, #A9,460, HBD, HOF, HOT, HAD, #0F, #0, #OD, #00, #04 
#A9,#40, HOD, #OF, #03, HAD, #01,#03 
#8D,#01,#04,4#68, #BD, #03, #03 

#69, #8D, #OF, #03 

#68, #4C, #03, HEC 


MEM=#9462 


READ 


DTA: FOKE MEM,DTA 


IF DTASSHEC THEN MEM=MEM+1: GOTO 216 


DOKE 


#9229,#402 


FRINT FEEK (44606), PEER (#461) : GOTOZTE& 


instructions 200 à 220 placent, à partir de l'adresse mémoire 4402, 
les instructions machine fournies par les ‘ DATA” des lignes 100 à 130. 
L'instruction 225 permet à ce programme d'être exécuté en même temps 
que la routine de gestion d'interruptions. 


Le rôle des instructions machines ainsi créées consiste à placer dans les 
octets #400 et #401 l'état de chacune des deux poignées (4400 corres- 
pondant à la poignée droite). La valeur de chaque bit est définie ainsi: 


bouton de tir (l'un des deux) 
poignée gauche 
poignée droite 


Numéro du bit Poids du bit Signification 
0 gauche 
1 droite 
2 (inutilisé) 
3 bas 
à haut 
5 
6 
7 
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Le ‘poids du bit’ correspond à la valeur obtenue lorsque ce bit est à un. 
Contrairement à ce que l'on pourrait croire, chaque bit prend la valeur O (et 
non 1) quand l’action correspondante est effective et la valeur 1 dans le cas 
contraire. Par exemple, si le bouton de tir de la poignée droite est enfoncé, 
en même temps qu'elle est en position ‘’haut”, l'octet 400 contiendra le 
nombre binaire : 


N° du bit: 7 6 5 4 3 2 1 O 
Valeur: O 1 O0 O 1 1 1 1 


ce qui correspond à la valeur 64 + 8 + 4 +2 + 1 — 79. 


Lorsque la poignée droite est en position de repos, l'octet 4400 contient: 
64 + 32 + 16 + 8 + 4 + 2 + 1 — 127. De même, quand la poignée gauche 
est en position de repos, l'octet #401 contient: 128 + 32 + 16 + 8 + 4 
+2 + 1 = 191. 


Notez bien que deux bits de position (haut, bas, gauche, droite) peuvent 
être simultanément à zéro. C'est ce qui nous permettra le déplacement ‘’en 
diagonale”, chose que les touches du clavier ne permettent pas. 


Comment utilisons-nous ce programme 


e Pour savoir si la poignée droite est au repos, nous comparons à 191, la 
valeur de l'octet d'adresse #400. 


e Pour savoir si un tir est demandé, nous examinons le bit 5 de cet octet 
en employant la fonction AND. Ainsi, ces instructions: 


CL=PEEK( # 400) 
IF((CL AND 32)-0) THEN... 


exécutent l'action figurée par … lorsque l'un des boutons de tir est enfoncé, 
quelle que soit la position de la poignée. Si nous avions simplement comparé 
la valeur de l'octet 4400 à 95 (64+16+8+4+2+1), nous n'aurions trouvé 
l'égalité que si l'un des boutons était enfoncé alors que la manette était en 
position centrale. Cette façon de faire empêcherait de tirer pendant un 
déplacement. 


e Pour réaliser un déplacement, nous procédons ainsi: si X et Y désignent 
les coordonnées d'un mobile à un instant donné, ses nouvelles coor- 
données XN,YN sont définies par: 


CL=PEEK(# 400) 
XN=X+((CL AND 1)=-0)-((CL AND 2)—0) 
YN=Y+((CL AND 16)-0)-((CL AND 8)=-0) 
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Là encore, nous avons considéré individuellement chacun des bits O,1,3 et 
4 de l'octet #400. En procédant ainsi, le déplacement en diagonale devient 
possible. 


REMARQUE: L'instruction 210 écrit, en permanence, le contenu des octets 
#400 et 4401. Lorsque vous exécutez le programme MANETTE 1, vous 
pouvez ainsi examiner les différentes valeurs obtenues en agissant sur vos 
poignées. 


3. Deuxième programme 


Nous le nommerons ‘ MANETTE 2" 


166 DATE #48,HAD, 1,3,#48,#AD,3,3,#48,HA9, #CO, #HOD, #Z, 3, #09, #86 
119 DATA #8D,#F,3, #20, 422,404, HAD, 6,4, #9D, 1,4,#A9,#40, #OD,#F,3 
126 DATA #20,#22,4,#68,4G9D,3,3,#68,4GD,#F,3,#68, #40, 3, #EC 

136 DATA #49,0,H8D,0,4,#AD,#F,3,#49,#2E, #0A, #00, HOA, #2E, 6,4, #OA 
146 DATA H2E,0,4,H0A,4#27E,O,4,#40A, HO, #DE, &, 4, HO, #2E, 6,4, #60 
156 FOR AD=#407 TO #452: READ DTA: FOKE AD,DTA: NEXT 

166 IF DTA:?#60 THEN STOF 

206 DOKE 4229,#462 

216 FRINT FEEK(#466) ,PEEK (4461) 

276 GOTO 219 









Le mécanisme est le même que celui employé dans le programme précé- 
dent. La différence réside simplement dans les valeurs placées dans les 
octets #400 et 4401. Seuls, les bits O à 4 sont utilisés, comme ceci: 





Numéro du bit Poids Signification 
1 gauche 
2 droite 
ä bas 
8 haut 
16 tir 
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Cette fois, un bit donné prend la valeur 1 quand l'action correspondante est 
effective. 


Ce résultat est obtenu grâce à quelques instructions machine supplémen- 
taires. L'examen de la valeur des octets #400 et #401 s’en trouve ainsi 
simplifié. 


Comment utilisons-nous ce programme 

e Pour savoir si la poignée droite est au repos, il suffit de comparer à zéro 
la valeur de l'octet 4400. 

e Pour savoir si un tir est demandé, nous examinons le bit 4. Ainsi ces 


instructions : 


CL-PEEK(#400) 
IF(CL AND 16) THEN... 


exécutent l'action représentée par. lorsque l'un des boutons de tir est 
enfoncé. 


@e Pour réaliser un déplacement, on peut procéder ainsi: 


CL=PEEK(# 400) 
XN=X—(CL AND 1)+(CL AND 2) 
YN=Y-—(CL AND 8)+(CL AND 4) 


mais on peut aussi profiter du fait que les valeurs sont ” groupées”, et 
écrire : 


ON (CL AND 16) GOTO X,Y,Z 
ON (CL AND 16) GOSUB X, Y, Z 


X,Y,z... représentant des numéros de ligne. 


Notez bien que l'expression (CL AND 16) prend une valeur comprise entre 
O et 10; cependant elle ne prend jamais la valeur 3 ni la valeur 7. 
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Voici un schéma récapitulant les valeurs possibles: 


HAUT 
9 8 10 
GAUCHE 1 O 2 DROITE 
5 4 6 
BAS 


e Pour dessiner un mobile qui change d'aspect suivant le sens de déplace- 
ment, on peut créer un tableau C de dimension 10, contenant les codes 
des caractères utilisés pour chacune des directions: 


C(1) correspond à un déplacement vers la gauche, 
C(2) correspond à un déplacement vers la droite, 
C(3) n'est jamais utilisé, 


C(5) correspond à un déplacement vers le bas et vers la gauche (en 
diagonale), etc. 


Pour afficher le bon caractère en X,Y il suffit d'écrire: 


CL-PEEK(7 400) 
IF CL <> 0 THEN I-CL AND 16:PLOT X,Y,C(1) 


C'est cette méthode que nous employons dans “karting”. 


REMARQUE: Là encore, l'instruction 230 écrit en permanence les valeurs 
des octets #400 et 4401. 


4. Comment employer une poignée dans les jeux proposés 


a) Examinez la rubrique ‘pour utiliser une poignée de jeu” du paragra- 
phe 3 du chapitre relatif au jeu concerné. Celle-ci vous précise: 


— le programme à employer (MANETTE1 ou MANETTE2), 
— les modifications à apporter au programme de jeu. 
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b) Chargez le programme demandé (MANETTE1 ou MANETTE2) et 
exécutez-le. Vous devez voir défiler: 


197 et 127 pour MANETTE 1 
O et O pour MANETTE 2 


Vérifiez que la poignée droite est correctement branchée : en agissant sur 
elle, la première valeur doit évoluer. (Si c'est la seconde valeur qui change, 
il vous suffit de modifier le branchement). 


Interrompez l'exécution, par ‘Controle C”. 

c) Chargez maintenant votre programme de jeu. Effectuez les modifica- 
tions proposées, à moins que vous n'ayez déjà sauvegardé une version 
‘poignée de jeu”. 


d) Lancez votre programme par RUN. 


REMARQUE: La façon dont les poignées sont branchées sur l'ORIC fait que 
leur utilisation modifie ou interrompt les sons générés par le haut-parleur. 
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Achevé d’imprimer 
par Cid éditions 
Dépôt légal: mars 1984 
N° d’Éditeur : 4067 


Découvrez les excellentes possibilités graphiques et sonores de 
l'ORIC avec ces vingt jeux plus passionnants les uns que les autres : 
venez piloter un bombardier, une voiture de course, une soucoupe 
volante ; essayez de détruire les envahisseurs ou d’alunir en douceur : 
distrayez-vous au tir aux ballons ou à la chasse aux champignons : 
détendez-vous avec le «mur de briques» ; entraînez votre mémoire 
avec (phosphore» ; exercez vos facultés de raisonnement avec le 
master-mind géant. 


Affirmez votre personnalité en adaptant chaque jeu en fonction 
de vos désirs : choisissez pour cela parmi les nombreuses modifica- 
tions qui vous sont proposées (y compris l’utilisation d'une poignée 
de jeu) et qui ne nécessitent aucune pratique de la programmation. 


Etendez vos connaissances du BASIC et de l'ORIC, tout en vous 
amusant, grâce aux explications détaillées qui accompagnent chaque 
programme de jeu. 


Donnez libre cours à votre imagination en appliquant les techni- 
ques décrites ici à la programmation des scénarios de jeux qui vous 
tiennent à cœur. 
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